(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 8.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[    252641,       6610]
NotebookOptionsPosition[    240532,       6210]
NotebookOutlinePosition[    241440,       6242]
CellTagsIndexPosition[    241267,       6235]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"<<", "MultiAgent`"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"mas", " ", "=", " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", " ", "#"}], "}"}], "&"}], "/@", 
    RowBox[{"Range", "[", "4", "]"}]}], ")"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"getMarketNumber", "[", 
    RowBox[{
     RowBox[{"#", "[", 
      RowBox[{"[", "1", "]"}], "]"}], ",", 
     RowBox[{"#", "[", 
      RowBox[{"[", "2", "]"}], "]"}]}], "]"}], " ", "&"}], "/@", " ", 
  "mas"}], "\[IndentingNewLine]", 
 RowBox[{"getMarketNumber", "[", 
  RowBox[{"5", ",", "1"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "arg_", "]"}], " ", ":=", " ", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{"arg", ">", "0"}], ",", "arg", ",", "0"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"f", "/@", 
  RowBox[{"RandomVariate", "[", 
   RowBox[{"CrProduce", ",", "productsN"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.555763360501124*^9, 3.555763372877026*^9}, {
  3.5686238631561637`*^9, 3.5686238824372663`*^9}, {3.5686239569875307`*^9, 
  3.568623963179885*^9}, {3.5689809603412714`*^9, 3.568981147636984*^9}, {
  3.5690726108963833`*^9, 3.569072668239663*^9}, {3.569072794310874*^9, 
  3.5690728362432723`*^9}, {3.569072907303337*^9, 3.5690729073823414`*^9}, {
  3.5690750128557673`*^9, 3.5690750129437723`*^9}, {3.569075044847597*^9, 
  3.569075112157447*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "4"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.5689809996615205`*^9, 3.5689811480450077`*^9}, 
   3.569072608647255*^9, 3.569072669295724*^9, {3.569072776860876*^9, 
   3.5690728407385297`*^9}, {3.569072891685444*^9, 3.569072910084496*^9}, {
   3.5690750162059593`*^9, 3.5690751127434807`*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Last", "::", "normal"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Nonatomic expression expected at position \
\[NoBreak]\\!\\(1\\)\[NoBreak] in \[NoBreak]\\!\\(Last[marketsNums]\\)\
\[NoBreak]. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/normal\\\", ButtonNote -> \
\\\"Last::normal\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.5690750162819633`*^9, 3.569075112777483*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"$Failed", ",", "1", ",", "2", ",", "3"}], "}"}]], "Output",
 CellChangeTimes->{{3.5689809996615205`*^9, 3.5689811480450077`*^9}, 
   3.569072608647255*^9, 3.569072669295724*^9, {3.569072776860876*^9, 
   3.5690728407385297`*^9}, {3.569072891685444*^9, 3.569072910084496*^9}, {
   3.5690750162059593`*^9, 3.569075112778483*^9}}],

Cell[BoxData["4"], "Output",
 CellChangeTimes->{{3.5689809996615205`*^9, 3.5689811480450077`*^9}, 
   3.569072608647255*^9, 3.569072669295724*^9, {3.569072776860876*^9, 
   3.5690728407385297`*^9}, {3.569072891685444*^9, 3.569072910084496*^9}, {
   3.5690750162059593`*^9, 3.569075112779483*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"RandomVariate", "::", "unsdst"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"The first argument \[NoBreak]\\!\\(CrProduce\\)\[NoBreak] \
is not a valid distribution. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/RandomVariate\\\", ButtonNote -> \
\\\"RandomVariate::unsdst\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.5690750162819633`*^9, 3.5690751128254857`*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"RandomVariate", "::", "array"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"The array dimensions \
\[NoBreak]\\!\\(If[\\(\\(\\(\\(productsN > 0\\)\\), productsN, 0\\)\\)]\\)\
\[NoBreak] given in position 2 of \
\[NoBreak]\\!\\(RandomVariate[\\(\\(\\(\\(If[\\(\\(\\(\\(CrProduce > 0\\)\\), \
CrProduce, 0\\)\\)]\\)\\), \\(\\(If[\\(\\(\\(\\(productsN > 0\\)\\), \
productsN, 0\\)\\)]\\)\\)\\)\\)]\\)\[NoBreak] should be a list of \
non-negative machine-sized integers giving the dimensions for the result. \\!\
\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/RandomVariate\\\", ButtonNote \
-> \\\"RandomVariate::array\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.5690750162819633`*^9, 3.569075112871488*^9}}],

Cell[BoxData[
 RowBox[{"RandomVariate", "[", 
  RowBox[{
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{"CrProduce", ">", "0"}], ",", "CrProduce", ",", "0"}], "]"}], 
   ",", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{"productsN", ">", "0"}], ",", "productsN", ",", "0"}], "]"}]}], 
  "]"}]], "Output",
 CellChangeTimes->{{3.5689809996615205`*^9, 3.5689811480450077`*^9}, 
   3.569072608647255*^9, 3.569072669295724*^9, {3.569072776860876*^9, 
   3.5690728407385297`*^9}, {3.569072891685444*^9, 3.569072910084496*^9}, {
   3.5690750162059593`*^9, 3.569075112872488*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"RemoveGlobal", "[", "]"}], "*)"}]], "Input",
 CellChangeTimes->{{3.555765540304377*^9, 3.5557655448938847`*^9}, {
  3.55576588334793*^9, 3.555765885203856*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"freeAgents", "[", "]"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"param", "[", 
  RowBox[{"1", ",", " ", "rProduce"}], "]"}]}], "Input",
 CellChangeTimes->{{3.5557655914061737`*^9, 3.555765594717533*^9}, {
  3.5557656667098637`*^9, 3.555765670180861*^9}, {3.565520064259824*^9, 
  3.5655201139876685`*^9}, {3.565523322925209*^9, 3.5655233411402507`*^9}, {
  3.5656904441849985`*^9, 3.5656904577217727`*^9}, {3.568623858860918*^9, 
  3.5686238615190697`*^9}}],

Cell[BoxData[
 RowBox[{"freeAgents", "[", "]"}]], "Output",
 CellChangeTimes->{3.5656904584868164`*^9}],

Cell[BoxData[
 RowBox[{"param", "[", 
  RowBox[{"1", ",", "rProduce"}], "]"}]], "Output",
 CellChangeTimes->{3.5656904584888163`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"param", "[", 
   RowBox[{"1", ",", "rProduce"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.5656904720145903`*^9, 3.56569047463274*^9}, {
  3.5656905918884463`*^9, 3.565690594328586*^9}}],

Cell[BoxData[
 RowBox[{"param", "[", 
  RowBox[{"1", ",", "rProduce"}], "]"}]], "Output",
 CellChangeTimes->{3.565690594844616*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"ag", "=", 
    RowBox[{"createAgent", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"Produce", ",", 
        RowBox[{"Hold", "@", 
         RowBox[{"strProduceResource", "[", 
          RowBox[{"AgentNUM", ",", "\"\<Ferrum\>\"", ",", "2"}], "]"}]}]}], 
       "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"Produce", ",", 
        RowBox[{"Hold", "@", 
         RowBox[{"strProduceResource", "[", 
          RowBox[{"AgentNUM", ",", "\"\<Gold\>\"", ",", "1"}], "]"}]}]}], 
       "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
   RowBox[{"addAgent", "[", "ag", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.555763376289138*^9, 3.555763389123611*^9}, 
   3.55576343800766*^9, 3.555764381450177*^9, 3.555765134565228*^9, {
   3.555765857095392*^9, 3.555765859698388*^9}, {3.555765891286909*^9, 
   3.5557658992235327`*^9}, 3.5656926718674145`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"a$1", ",", "a$2"}], "}"}]], "Output",
 CellChangeTimes->{{3.555765893580584*^9, 3.555765899820694*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"MultiAgent`Private`agents", "[", "a$1", "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.555765750929474*^9, 3.5557657555161457`*^9}, {
   3.5557657872676773`*^9, 3.555765824236364*^9}, 3.5557660047479343`*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Binary", "[", "arr_", "]"}], ":=", 
     RowBox[{"arr", "/.", 
      RowBox[{
       RowBox[{"x_", "/;", 
        RowBox[{"(", 
         RowBox[{"x", "\[NotEqual]", "0"}], ")"}]}], "\[Rule]", "1"}]}]}], 
    ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"Binary", "@", 
    RowBox[{"{", 
     RowBox[{"1", ",", "5.5", ",", " ", 
      RowBox[{"-", "2"}], ",", " ", "0", ",", " ", "0.1", ",", "2"}], 
     "}"}]}]}]}]], "Input",
 CellChangeTimes->{{3.5704367612392225`*^9, 3.5704367835404983`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", "1", ",", "1", ",", "0", ",", "1", ",", "1"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.570436785231595*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"\n", 
  RowBox[{
   RowBox[{"===", "\n", " ", "___"}], "\n", "~"}]}]], "Input",
 CellChangeTimes->{{3.564993785435111*^9, 3.56499378593814*^9}, 
   3.5653524390928326`*^9, {3.5653526780595007`*^9, 3.5653526783705187`*^9}, {
   3.5653528610819693`*^9, 3.565352864106142*^9}, {3.56552607239347*^9, 
   3.5655260749756174`*^9}}],

Cell[BoxData[{
 RowBox[{"/@", "\[IndentingNewLine]", 
  RowBox[{"//", "\[IndentingNewLine]", 
   RowBox[{"#", " ", "&"}]}]}], "\[IndentingNewLine]", 
 RowBox[{"?", "\[IndentingNewLine]", "/. ->"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"<<", "\[IndentingNewLine]", "/"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"\[Equal]", "\[IndentingNewLine]", 
  RowBox[{":", "\[IndentingNewLine]", 
   RowBox[{"@@", "\[IndentingNewLine]", 
    RowBox[{"{", "}"}]}]}]}], "\[IndentingNewLine]", 
 RowBox[{";;", "\[IndentingNewLine]", "_"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"!", " ", "&"}], "@", "\[IndentingNewLine]", 
  "Switch"}], "\[IndentingNewLine]", "Module", "\[IndentingNewLine]", \
"Sequence", "\[IndentingNewLine]", "MapThread", "\[IndentingNewLine]", \
"OptionValue", "\[IndentingNewLine]", "Hold", "\[IndentingNewLine]", "Break", \
"\[IndentingNewLine]", "Rest", "\[IndentingNewLine]", "Release", "\
\[IndentingNewLine]", "Protect", "\[IndentingNewLine]", 
 RowBox[{"\[Rule]", "\[IndentingNewLine]", 
  RowBox[{"#", "[", 
   RowBox[{"[", 
    RowBox[{";;", "l"}], "]"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.5587791712445984`*^9, 3.5587791794604187`*^9}, {
   3.564993154035997*^9, 3.564993154287011*^9}, {3.565351191260461*^9, 
   3.5653512240853386`*^9}, {3.565351542514551*^9, 3.5653515427395644`*^9}, {
   3.565351587211108*^9, 3.565351594570529*^9}, {3.5653529377373533`*^9, 
   3.565352940713524*^9}, {3.5653530841127257`*^9, 3.5653530884959764`*^9}, {
   3.565505080238787*^9, 3.5655050842620173`*^9}, {3.565507014960447*^9, 
   3.5655070155134783`*^9}, {3.5655078181953893`*^9, 3.565507818326397*^9}, {
   3.565507851090271*^9, 3.5655078519063177`*^9}, 3.565507923578417*^9, {
   3.565507982225771*^9, 3.5655079830818205`*^9}, {3.5655081036167145`*^9, 
   3.5655081037477217`*^9}, {3.5655122577723184`*^9, 
   3.5655122579573293`*^9}, {3.5655183736881285`*^9, 3.565518377519348*^9}, {
   3.5655218687030325`*^9, 3.5655218695840826`*^9}, {3.5655260780177913`*^9, 
   3.5655260781617994`*^9}, {3.5655287641914315`*^9, 3.565528764966476*^9}, {
   3.5655301457654533`*^9, 3.5655301649565506`*^9}, {3.56553049189025*^9, 
   3.5655304920742607`*^9}, {3.565532293349288*^9, 3.5655322948053713`*^9}, {
   3.5655326227881308`*^9, 3.565532622867135*^9}, {3.565607562772453*^9, 
   3.5656075631974773`*^9}, {3.5656076314973836`*^9, 
   3.5656076332904863`*^9}, {3.5656084764677134`*^9, 
   3.5656084784838285`*^9}, {3.5656123302251353`*^9, 
   3.5656123304331474`*^9}, {3.565612672670722*^9, 3.565612673902793*^9}, {
   3.565690247819767*^9, 3.565690248123784*^9}, {3.566819694364414*^9, 
   3.5668197136915197`*^9}, 3.5668197469244204`*^9, {3.5668321006820145`*^9, 
   3.566832102388112*^9}, {3.5686390394415145`*^9, 3.5686390412016153`*^9}, {
   3.5686413767372007`*^9, 3.5686413783472924`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"x", "=", "2"}]], "Input",
 CellChangeTimes->{{3.5649937564744544`*^9, 3.5649938149547997`*^9}}],

Cell[BoxData["2"], "Output",
 CellChangeTimes->{3.5649938155518336`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"v", " ", "=", " ", 
  RowBox[{"{", 
   RowBox[{"1", ",", "2", ",", "3"}], "}"}]}]], "Input",
 CellChangeTimes->{{3.5649938293416224`*^9, 3.5649938352009573`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", "2", ",", "3"}], "}"}]], "Output",
 CellChangeTimes->{3.5649938393161926`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", 
  RowBox[{"v", "/", 
   RowBox[{"(", 
    RowBox[{"v", "+", "1"}], ")"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.56499384503552*^9, 3.5649938717950506`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.5`", ",", "0.6666666666666666`", ",", "0.75`"}], "}"}]], "Output",\

 CellChangeTimes->{{3.5649938530999813`*^9, 3.5649938725810957`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Exp", "[", "%", "]"}]], "Input",
 CellChangeTimes->{{3.564993877419372*^9, 3.564993891874199*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1.6487212707001282`", ",", "1.9477340410546757`", ",", 
   "2.117000016612675`"}], "}"}]], "Output",
 CellChangeTimes->{3.5649938933482833`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"E", "^", "0.5"}]], "Input",
 CellChangeTimes->{{3.564993911892344*^9, 3.564993919633787*^9}}],

Cell[BoxData["1.6487212707001282`"], "Output",
 CellChangeTimes->{3.564993919913803*^9}]
}, Open  ]],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{{3.565009672611806*^9, 3.5650096729148226`*^9}, {
  3.565009729595065*^9, 3.565009734194328*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.565007321785346*^9, 3.565007321804347*^9}}],

Cell[BoxData[
 RowBox[{"Clear", "@", "f"}]], "Input",
 CellChangeTimes->{{3.5650097436318674`*^9, 3.565009748754161*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "f"}]], "Input",
 CellChangeTimes->{{3.565009751870339*^9, 3.5650097521143527`*^9}}],

Cell["Global`f", "Print", "PrintUsage",
 CellChangeTimes->{3.5650097526883855`*^9},
 CellTags->"Info3565024152-6385872"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"f", "//", "Clear"}]], "Input",
 CellChangeTimes->{{3.56500975660861*^9, 3.565009762433943*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "x_", "]"}], ":=", 
   RowBox[{
    RowBox[{"x", "^", "2"}], "+", "34"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.56500977269053*^9, 3.5650097731955585`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "f"}]], "Input",
 CellChangeTimes->{{3.5650097755926957`*^9, 3.5650097757617054`*^9}}],

Cell[CellGroupData[{

Cell["Global`f", "Print", "PrintUsage",
 CellChangeTimes->{3.5650097761827297`*^9},
 CellTags->"Info3565024176-6385872"],

Cell[BoxData[
 InterpretationBox[GridBox[{
    {GridBox[{
       {
        RowBox[{
         RowBox[{"f", "[", "x_", "]"}], ":=", 
         RowBox[{
          SuperscriptBox["x", "2"], "+", "34"}]}]}
      },
      BaselinePosition->{Baseline, {1, 1}},
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxItemSize->{"Columns" -> {{
           Scaled[0.999]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
        "RowsIndexed" -> {}}]}
   },
   BaselinePosition->{Baseline, {1, 1}},
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}}],
  Definition[$CellContext`f],
  Editable->False]], "Print",
 CellChangeTimes->{3.5650097761937304`*^9},
 CellTags->"Info3565024176-6385872"]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
 RowBox[{"f", "//", "Clear"}]], "Input",
 CellChangeTimes->{{3.5650097786898727`*^9, 3.565009783746162*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "f"}]], "Input",
 CellChangeTimes->{{3.565009785649271*^9, 3.565009785882284*^9}}],

Cell["Global`f", "Print", "PrintUsage",
 CellChangeTimes->{3.5650097864113145`*^9},
 CellTags->"Info3565024186-6385872"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["products"], "Input",
 CellChangeTimes->{{3.5656095026804094`*^9, 3.5656095102678432`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", "2", ",", "3"}], "}"}]], "Output",
 CellChangeTimes->{3.5656095107698717`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DownValues", "[", "param", "]"}]], "Input",
 CellChangeTimes->{{3.565609515490142*^9, 3.565609558587607*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"HoldPattern", "[", 
     RowBox[{"param", "[", 
      RowBox[{"1", ",", "MultiAgent`Private`kConsume"}], "]"}], "]"}], 
    "\[RuleDelayed]", "0.45741479537274476`"}], ",", 
   RowBox[{
    RowBox[{"HoldPattern", "[", 
     RowBox[{"param", "[", 
      RowBox[{"1", ",", "MultiAgent`Private`kProduce"}], "]"}], "]"}], 
    "\[RuleDelayed]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "3", ",", 
        FractionBox["5", "2"], ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", 
        FractionBox["1", "12"], ",", "0", ",", "0"}], "}"}]}], "}"}]}], ",", 
   RowBox[{
    RowBox[{"HoldPattern", "[", 
     RowBox[{"param", "[", 
      RowBox[{"1", ",", "MultiAgent`Private`rConsume"}], "]"}], "]"}], 
    "\[RuleDelayed]", 
    RowBox[{"{", 
     RowBox[{
     "9.594670277790652`", ",", "0", ",", "1.8419707112720098`", ",", 
      "1.7035404122948197`"}], "}"}]}], ",", 
   RowBox[{
    RowBox[{"HoldPattern", "[", 
     RowBox[{"param", "[", 
      RowBox[{"1", ",", "MultiAgent`Private`rProduce"}], "]"}], "]"}], 
    "\[RuleDelayed]", 
    RowBox[{"{", 
     RowBox[{"1.0338975824720604`", ",", "0", ",", "0", ",", "0"}], "}"}]}], 
   ",", 
   RowBox[{
    RowBox[{"HoldPattern", "[", 
     RowBox[{"param", "[", 
      RowBox[{"2", ",", "MultiAgent`Private`kConsume"}], "]"}], "]"}], 
    "\[RuleDelayed]", "0.773051619243861`"}], ",", 
   RowBox[{
    RowBox[{"HoldPattern", "[", 
     RowBox[{"param", "[", 
      RowBox[{"2", ",", "MultiAgent`Private`kProduce"}], "]"}], "]"}], 
    "\[RuleDelayed]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "3", ",", "0", ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        FractionBox["1", "12"], ",", "0", ",", "3", ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", 
        FractionBox["1", "12"], ",", "0", ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], ",", 
   RowBox[{
    RowBox[{"HoldPattern", "[", 
     RowBox[{"param", "[", 
      RowBox[{"2", ",", "MultiAgent`Private`rConsume"}], "]"}], "]"}], 
    "\[RuleDelayed]", 
    RowBox[{"{", 
     RowBox[{
     "0", ",", "4.514175504627702`", ",", "4.98475298462478`", ",", 
      "1.8915585182643224`"}], "}"}]}], ",", 
   RowBox[{
    RowBox[{"HoldPattern", "[", 
     RowBox[{"param", "[", 
      RowBox[{"2", ",", "MultiAgent`Private`rProduce"}], "]"}], "]"}], 
    "\[RuleDelayed]", 
    RowBox[{"{", 
     RowBox[{"0", ",", "1.0741990939295343`", ",", "0", ",", "0"}], "}"}]}], 
   ",", 
   RowBox[{
    RowBox[{"HoldPattern", "[", 
     RowBox[{"param", "[", 
      RowBox[{"3", ",", "MultiAgent`Private`kConsume"}], "]"}], "]"}], 
    "\[RuleDelayed]", "0.8300627868467664`"}], ",", 
   RowBox[{
    RowBox[{"HoldPattern", "[", 
     RowBox[{"param", "[", 
      RowBox[{"3", ",", "MultiAgent`Private`kProduce"}], "]"}], "]"}], 
    "\[RuleDelayed]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        FractionBox["1", "12"], ",", "0", ",", "0", ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        FractionBox["1", "10"], ",", 
        FractionBox["1", "12"], ",", "0", ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], ",", 
   RowBox[{
    RowBox[{"HoldPattern", "[", 
     RowBox[{"param", "[", 
      RowBox[{"3", ",", "MultiAgent`Private`rConsume"}], "]"}], "]"}], 
    "\[RuleDelayed]", 
    RowBox[{"{", 
     RowBox[{
     "0", ",", "2.220940664841674`", ",", "2.3663660804393727`", ",", 
      "6.403853373973443`"}], "}"}]}], ",", 
   RowBox[{
    RowBox[{"HoldPattern", "[", 
     RowBox[{"param", "[", 
      RowBox[{"3", ",", "MultiAgent`Private`rProduce"}], "]"}], "]"}], 
    "\[RuleDelayed]", 
    RowBox[{"{", 
     RowBox[{
     "1.762899757575308`", ",", "0", ",", "0.870670354809632`", ",", "0"}], 
     "}"}]}], ",", 
   RowBox[{
    RowBox[{"HoldPattern", "[", 
     RowBox[{"param", "[", 
      RowBox[{"4", ",", "MultiAgent`Private`kConsume"}], "]"}], "]"}], 
    "\[RuleDelayed]", "0.9980269696442795`"}], ",", 
   RowBox[{
    RowBox[{"HoldPattern", "[", 
     RowBox[{"param", "[", 
      RowBox[{"4", ",", "MultiAgent`Private`kProduce"}], "]"}], "]"}], 
    "\[RuleDelayed]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "3", ",", "0", ",", 
        FractionBox["5", "2"]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        FractionBox["1", "12"], ",", "0", ",", "3", ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        FractionBox["1", "10"], ",", 
        FractionBox["1", "12"], ",", "0", ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], ",", 
   RowBox[{
    RowBox[{"HoldPattern", "[", 
     RowBox[{"param", "[", 
      RowBox[{"4", ",", "MultiAgent`Private`rConsume"}], "]"}], "]"}], 
    "\[RuleDelayed]", 
    RowBox[{"{", 
     RowBox[{
     "3.2518046789279698`", ",", "3.1103581170634342`", ",", 
      "5.229849767458864`", ",", "0.6864367545070209`"}], "}"}]}], ",", 
   RowBox[{
    RowBox[{"HoldPattern", "[", 
     RowBox[{"param", "[", 
      RowBox[{"4", ",", "MultiAgent`Private`rProduce"}], "]"}], "]"}], 
    "\[RuleDelayed]", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], ",", 
   RowBox[{
    RowBox[{"HoldPattern", "[", 
     RowBox[{"param", "[", 
      RowBox[{"5", ",", "MultiAgent`Private`kConsume"}], "]"}], "]"}], 
    "\[RuleDelayed]", "0.653091029898309`"}], ",", 
   RowBox[{
    RowBox[{"HoldPattern", "[", 
     RowBox[{"param", "[", 
      RowBox[{"5", ",", "MultiAgent`Private`kProduce"}], "]"}], "]"}], 
    "\[RuleDelayed]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "0", ",", "0", ",", 
        FractionBox["5", "2"]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        FractionBox["1", "12"], ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        FractionBox["1", "10"], ",", 
        FractionBox["1", "12"], ",", "0", ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", 
        FractionBox["1", "12"], ",", "0", ",", "0"}], "}"}]}], "}"}]}], ",", 
   RowBox[{
    RowBox[{"HoldPattern", "[", 
     RowBox[{"param", "[", 
      RowBox[{"5", ",", "MultiAgent`Private`rConsume"}], "]"}], "]"}], 
    "\[RuleDelayed]", 
    RowBox[{"{", 
     RowBox[{
     "0.9127300461097332`", ",", "2.279657920161047`", ",", 
      "1.6772510976227242`", ",", "0"}], "}"}]}], ",", 
   RowBox[{
    RowBox[{"HoldPattern", "[", 
     RowBox[{"param", "[", 
      RowBox[{"5", ",", "MultiAgent`Private`rProduce"}], "]"}], "]"}], 
    "\[RuleDelayed]", 
    RowBox[{"{", 
     RowBox[{
     "0", ",", "1.9244543806506267`", ",", "0", ",", "0.712190535675001`"}], 
     "}"}]}], ",", 
   RowBox[{
    RowBox[{"HoldPattern", "[", 
     RowBox[{"param", "[", 
      RowBox[{"6", ",", "MultiAgent`Private`kConsume"}], "]"}], "]"}], 
    "\[RuleDelayed]", "0.9946632070465832`"}], ",", 
   RowBox[{
    RowBox[{"HoldPattern", "[", 
     RowBox[{"param", "[", 
      RowBox[{"6", ",", "MultiAgent`Private`kProduce"}], "]"}], "]"}], 
    "\[RuleDelayed]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0", ",", "0", ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        FractionBox["1", "10"], ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        FractionBox["1", "10"], ",", "0", ",", "0", ",", "0"}], "}"}]}], 
     "}"}]}], ",", 
   RowBox[{
    RowBox[{"HoldPattern", "[", 
     RowBox[{"param", "[", 
      RowBox[{"6", ",", "MultiAgent`Private`rConsume"}], "]"}], "]"}], 
    "\[RuleDelayed]", 
    RowBox[{"{", 
     RowBox[{
     "4.169251149551851`", ",", "6.3951486725121525`", ",", 
      "2.2121178826273176`", ",", "2.6597671321030614`"}], "}"}]}], ",", 
   RowBox[{
    RowBox[{"HoldPattern", "[", 
     RowBox[{"param", "[", 
      RowBox[{"6", ",", "MultiAgent`Private`rProduce"}], "]"}], "]"}], 
    "\[RuleDelayed]", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0", ",", "0", ",", "0.41212628798297235`"}], "}"}]}], 
   ",", 
   RowBox[{
    RowBox[{"HoldPattern", "[", 
     RowBox[{"param", "[", 
      RowBox[{"7", ",", "MultiAgent`Private`kConsume"}], "]"}], "]"}], 
    "\[RuleDelayed]", "0.6255371153979552`"}], ",", 
   RowBox[{
    RowBox[{"HoldPattern", "[", 
     RowBox[{"param", "[", 
      RowBox[{"7", ",", "MultiAgent`Private`kProduce"}], "]"}], "]"}], 
    "\[RuleDelayed]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "3", ",", 
        FractionBox["5", "2"], ",", 
        FractionBox["5", "2"]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        FractionBox["1", "10"], ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        FractionBox["1", "10"], ",", 
        FractionBox["1", "12"], ",", "0", ",", "0"}], "}"}]}], "}"}]}], ",", 
   RowBox[{
    RowBox[{"HoldPattern", "[", 
     RowBox[{"param", "[", 
      RowBox[{"7", ",", "MultiAgent`Private`rConsume"}], "]"}], "]"}], 
    "\[RuleDelayed]", 
    RowBox[{"{", 
     RowBox[{
     "0", ",", "4.0408811224129195`", ",", "3.3916715662752055`", ",", 
      "8.812694028610549`"}], "}"}]}], ",", 
   RowBox[{
    RowBox[{"HoldPattern", "[", 
     RowBox[{"param", "[", 
      RowBox[{"7", ",", "MultiAgent`Private`rProduce"}], "]"}], "]"}], 
    "\[RuleDelayed]", 
    RowBox[{"{", 
     RowBox[{
     "0", ",", "1.2189396004741302`", ",", "0", ",", "0.07346860196528707`"}],
      "}"}]}], ",", 
   RowBox[{
    RowBox[{"HoldPattern", "[", 
     RowBox[{"param", "[", 
      RowBox[{"8", ",", "MultiAgent`Private`kConsume"}], "]"}], "]"}], 
    "\[RuleDelayed]", "0.9464724529507714`"}], ",", 
   RowBox[{
    RowBox[{"HoldPattern", "[", 
     RowBox[{"param", "[", 
      RowBox[{"8", ",", "MultiAgent`Private`kProduce"}], "]"}], "]"}], 
    "\[RuleDelayed]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        FractionBox["1", "10"], ",", 
        FractionBox["1", "12"], ",", "0", ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        FractionBox["1", "10"], ",", "0", ",", "0", ",", "0"}], "}"}]}], 
     "}"}]}], ",", 
   RowBox[{
    RowBox[{"HoldPattern", "[", 
     RowBox[{"param", "[", 
      RowBox[{"8", ",", "MultiAgent`Private`rConsume"}], "]"}], "]"}], 
    "\[RuleDelayed]", 
    RowBox[{"{", 
     RowBox[{
     "4.001268291394239`", ",", "6.140771467013752`", ",", 
      "4.80210332670532`", ",", "4.500751246646617`"}], "}"}]}], ",", 
   RowBox[{
    RowBox[{"HoldPattern", "[", 
     RowBox[{"param", "[", 
      RowBox[{"8", ",", "MultiAgent`Private`rProduce"}], "]"}], "]"}], 
    "\[RuleDelayed]", 
    RowBox[{"{", 
     RowBox[{
     "0", ",", "0", ",", "0.5612113752802946`", ",", "1.2791673812299893`"}], 
     "}"}]}], ",", 
   RowBox[{
    RowBox[{"HoldPattern", "[", 
     RowBox[{"param", "[", 
      RowBox[{"9", ",", "MultiAgent`Private`kConsume"}], "]"}], "]"}], 
    "\[RuleDelayed]", "0.5361263627710222`"}], ",", 
   RowBox[{
    RowBox[{"HoldPattern", "[", 
     RowBox[{"param", "[", 
      RowBox[{"9", ",", "MultiAgent`Private`kProduce"}], "]"}], "]"}], 
    "\[RuleDelayed]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "0", ",", 
        FractionBox["5", "2"], ",", 
        FractionBox["5", "2"]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0", ",", "3", ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], ",", 
   RowBox[{
    RowBox[{"HoldPattern", "[", 
     RowBox[{"param", "[", 
      RowBox[{"9", ",", "MultiAgent`Private`rConsume"}], "]"}], "]"}], 
    "\[RuleDelayed]", 
    RowBox[{"{", 
     RowBox[{
     "5.8541504107696944`", ",", "1.7803435944001034`", ",", "0", ",", 
      "2.635210880486288`"}], "}"}]}], ",", 
   RowBox[{
    RowBox[{"HoldPattern", "[", 
     RowBox[{"param", "[", 
      RowBox[{"9", ",", "MultiAgent`Private`rProduce"}], "]"}], "]"}], 
    "\[RuleDelayed]", 
    RowBox[{"{", 
     RowBox[{"2.1988956795554206`", ",", "0", ",", "0", ",", "0"}], "}"}]}], 
   ",", 
   RowBox[{
    RowBox[{"HoldPattern", "[", 
     RowBox[{"param", "[", 
      RowBox[{"10", ",", "MultiAgent`Private`kConsume"}], "]"}], "]"}], 
    "\[RuleDelayed]", "0.42133043212771776`"}], ",", 
   RowBox[{
    RowBox[{"HoldPattern", "[", 
     RowBox[{"param", "[", 
      RowBox[{"10", ",", "MultiAgent`Private`kProduce"}], "]"}], "]"}], 
    "\[RuleDelayed]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "3", ",", 
        FractionBox["5", "2"], ",", 
        FractionBox["5", "2"]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0", ",", "3", ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        FractionBox["1", "10"], ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        FractionBox["1", "10"], ",", 
        FractionBox["1", "12"], ",", "0", ",", "0"}], "}"}]}], "}"}]}], ",", 
   RowBox[{
    RowBox[{"HoldPattern", "[", 
     RowBox[{"param", "[", 
      RowBox[{"10", ",", "MultiAgent`Private`rConsume"}], "]"}], "]"}], 
    "\[RuleDelayed]", 
    RowBox[{"{", 
     RowBox[{
     "1.7528551461369963`", ",", "2.1539273742742777`", ",", 
      "1.3985774042394965`", ",", "9.632843468010698`"}], "}"}]}], ",", 
   RowBox[{
    RowBox[{"HoldPattern", "[", 
     RowBox[{"param", "[", 
      RowBox[{"10", ",", "MultiAgent`Private`rProduce"}], "]"}], "]"}], 
    "\[RuleDelayed]", 
    RowBox[{"{", 
     RowBox[{
     "4.959218331315299`", ",", "2.7364668227858204`", ",", "0", ",", "0"}], 
     "}"}]}]}], "}"}]], "Output",
 CellChangeTimes->{3.5656095599986877`*^9, 3.566830989856479*^9, 
  3.56683307145754*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"x", "^", "2"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "1", ",", "5"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.565616160851235*^9, 3.5656161861406813`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVzHs0lAkABfDR0HjFmM8oUsIQpUZC36Z8l2ZpQ0diOUQlZaPWoy1a8ghF
RcpjlTBte4rs5pBHxWo2lWejUshu24P1jhkxHiOz0x/3/M49555rGBjmcXAR
jUZzk+erLwVDbBpNRD1K7Fj71UuL/4larCSilmQ/SdJQFVHursI36nJbLGro
q7RFlLCrokBX7hVxXoyrmYhqHosx2Sj3XNP3Lq3uIkqgr2FzSG5DaW3Ivl9F
1J1oK882voi64LymZNBZTKVZxlzOcxBTYa+uciKuTVAWayfZ9oUT1IMPZ+vM
bk9RvVTmSFPvZyqy4ahG8f0ZyiXbbk5kNEUJeBveKY5KKf4xoabpKQk14piW
Ic2XUcpHk6MgmKaKI4bL3/EV4C827A9eOUvVvK+yK6qhI6hKmG5xYo4qadjW
XvdBCXFZhWc7q6VUT6ygopCmjJR5r9R01hfKzLZxe+lhVRTFW/5t7r1AnTvT
3O/3WB2hjnrBB3Jk1Mm2WwvmFprQapqa94yiobPxg9R4golpadh4yDIFjM4e
SlDmsbB7yv8go1EBtTlB8fkCAqkZHVGRkYtw+MQct5LHRmOl70Z3Fh1F0vmw
rFodxPK9Iisf0mFrXhzz7b5lsNMN9D2/XxGj3b5MrkQX4d4fnwwylfBDANn/
U91yxNkMP9P+Uwn1uUbLtNJWIJdPj7/rvxglG9r8Xm4zAOdF5t1uNQac9Lv6
1K6sQl0G91L4HQbst4Y+iD5jiHWjXmpdbspYnnlhKP64EbQ1RcqP55ShUsox
74g3htLD/DLjayoY8IwpFMdxcMS69o2KiypmemTTRVdN8Pt3gfx6iSp+sRL7
Bd0zhWREj9mfq4aVkT8LQ5tXo3q3Mz2bpw7J3qgvOTNmSNieUlTZr46091f2
2umtgdHbHd03UpbANZXHDt6yFnabkrN1rTQQExV7yD7OAv4r22cVOjRwriNS
hyhfB0lL+sfwRE3kpt7Y2anIhesi7mZzFhOB5ue1gjmWUB333aUQyMSzrJ4J
36eWSKrH7Wv3mDB1az16/uQGJHqWeUeoaMHecO6IDscKm591Oans1wL/k+qm
hPdWeMfmJSvXaCG6rX/EoGAjVEy+0XFgsKDYMl/r5W6NMZ3BoS0BLLidHtOz
1rGBT7sBK7KMhRpXhxjeSxuUeeenashYOMb84/KjdFv89eg5fvQi8Nbah3Zn
zyb4TGa4MW4SmOQKuOqGJJ4KHS3DbhHoba2wTeCQsC6RsLqKCUQv742dXE1C
MyCg+2Ypgcuv55++XS/fN6474FQu71XaHne3kLDJb4tOqSNQw+ncFuJDguWo
+hu9g8DFh0U5jEwSCfr1Z0JfEXB4vj05KYvEmCTicMdrAnnZ3ApZLonm0jfr
b3QTIMnq1pkC+Z5dct/xXwKOI7emPpWSGB90bk8cInCKtsKkr5HEngZp+dAw
gXSX64ygVhItBWXZu0YJOO04YN4nJHHTY6mv4TiB0kD+mv9ekwio6+8TTBLY
KlswHu4l0ZZ7tdFMQiBxIJx2ZIDE5oidtzOnCYQkrdIfGybBNq0O2zdHYH0n
qfVZTOI0LcSjSUqAkX59+PgUCVHPChvLLwTSpp3pszPy/6oXS/MWCFSwLfxi
5+X/F1PmZDICCQNuEzIZif8BKggt2Q==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{1., 0},
  PlotRange->{{1, 5}, {0., 24.99999918367348}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.5656161618892937`*^9, 3.565616186453699*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Options", "[", "Plot", "]"}], "[", 
  RowBox[{"[", 
   RowBox[{"All", ",", "All"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.565616189600879*^9, 3.5656162217807198`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"AlignmentPoint", "\[Rule]", "Center"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", 
    FractionBox["1", "GoldenRatio"]}], ",", 
   RowBox[{"Axes", "\[Rule]", "True"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", "None"}], ",", 
   RowBox[{"AxesOrigin", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"AxesStyle", "\[Rule]", 
    RowBox[{"{", "}"}]}], ",", 
   RowBox[{"Background", "\[Rule]", "None"}], ",", 
   RowBox[{"BaselinePosition", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"BaseStyle", "\[Rule]", 
    RowBox[{"{", "}"}]}], ",", 
   RowBox[{"ClippingStyle", "\[Rule]", "None"}], ",", 
   RowBox[{"ColorFunction", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"ColorFunctionScaling", "\[Rule]", "True"}], ",", 
   RowBox[{"ColorOutput", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"ContentSelectable", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"CoordinatesToolOptions", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"DisplayFunction", "\[RuleDelayed]", "$DisplayFunction"}], ",", 
   RowBox[{"Epilog", "\[Rule]", 
    RowBox[{"{", "}"}]}], ",", 
   RowBox[{"Evaluated", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"EvaluationMonitor", "\[Rule]", "None"}], ",", 
   RowBox[{"Exclusions", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"ExclusionsStyle", "\[Rule]", "None"}], ",", 
   RowBox[{"Filling", "\[Rule]", "None"}], ",", 
   RowBox[{"FillingStyle", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"FormatType", "\[RuleDelayed]", "TraditionalForm"}], ",", 
   RowBox[{"Frame", "\[Rule]", "False"}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", "None"}], ",", 
   RowBox[{"FrameStyle", "\[Rule]", 
    RowBox[{"{", "}"}]}], ",", 
   RowBox[{"FrameTicks", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"FrameTicksStyle", "\[Rule]", 
    RowBox[{"{", "}"}]}], ",", 
   RowBox[{"GridLines", "\[Rule]", "None"}], ",", 
   RowBox[{"GridLinesStyle", "\[Rule]", 
    RowBox[{"{", "}"}]}], ",", 
   RowBox[{"ImageMargins", "\[Rule]", "0.`"}], ",", 
   RowBox[{"ImagePadding", "\[Rule]", "All"}], ",", 
   RowBox[{"ImageSize", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"ImageSizeRaw", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"LabelStyle", "\[Rule]", 
    RowBox[{"{", "}"}]}], ",", 
   RowBox[{"MaxRecursion", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"Mesh", "\[Rule]", "None"}], ",", 
   RowBox[{"MeshFunctions", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"#1", "&"}], "}"}]}], ",", 
   RowBox[{"MeshShading", "\[Rule]", "None"}], ",", 
   RowBox[{"MeshStyle", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"Method", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"PerformanceGoal", "\[RuleDelayed]", "$PerformanceGoal"}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", "None"}], ",", 
   RowBox[{"PlotPoints", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Full", ",", "Automatic"}], "}"}]}], ",", 
   RowBox[{"PlotRangeClipping", "\[Rule]", "True"}], ",", 
   RowBox[{"PlotRangePadding", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"PlotRegion", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"PreserveImageOptions", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"Prolog", "\[Rule]", 
    RowBox[{"{", "}"}]}], ",", 
   RowBox[{"RegionFunction", "\[Rule]", 
    RowBox[{"(", 
     RowBox[{"True", "&"}], ")"}]}], ",", 
   RowBox[{"RotateLabel", "\[Rule]", "True"}], ",", 
   RowBox[{"Ticks", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"TicksStyle", "\[Rule]", 
    RowBox[{"{", "}"}]}], ",", 
   RowBox[{"WorkingPrecision", "\[Rule]", "MachinePrecision"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.5656162036126804`*^9, 3.5656162220987377`*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.565623017316402*^9, 3.5656230174524097`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"f", "[", 
   RowBox[{"A_", ",", "B_"}], "]"}], ":=", 
  RowBox[{"{", 
   RowBox[{"A", ",", "B"}], "}"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", 
    RowBox[{"#", "/.", 
     RowBox[{"List", "\[Rule]", " ", "Sequence"}]}], "]"}], "&"}], "@", 
  RowBox[{"{", 
   RowBox[{"1", ",", "2"}], "}"}]}]}], "Input",
 CellChangeTimes->{{3.5656162363795547`*^9, 3.565616328716836*^9}, {
  3.565616371013255*^9, 3.565616380483797*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", "2"}], "}"}]], "Output",
 CellChangeTimes->{{3.565616266138257*^9, 3.565616293223806*^9}, 
   3.565616381550858*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{"1", ",", "2"}], "}"}], "/.", 
  RowBox[{"List", "\[Rule]", " ", "Sequence"}]}]], "Input",
 CellChangeTimes->{{3.5656163884332514`*^9, 3.5656163960916896`*^9}}],

Cell[BoxData[
 RowBox[{"Sequence", "[", 
  RowBox[{"1", ",", "2"}], "]"}]], "Output",
 CellChangeTimes->{3.5656163965347147`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"marketLastPrice", "[", "6", "]"}]], "Input",
 CellChangeTimes->{{3.5656170147260733`*^9, 3.565617049847082*^9}}],

Cell[BoxData[
 FractionBox["1", "5"]], "Output",
 CellChangeTimes->{{3.5656170355292635`*^9, 3.565617050466118*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"marketsGoods", "[", "3", "]"}]], "Input",
 CellChangeTimes->{{3.565617075345541*^9, 3.565617125667419*^9}, {
  3.565617692971867*^9, 3.5656176934988976`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"2", ",", "1"}], "}"}]], "Output",
 CellChangeTimes->{3.565617694686965*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"goods", "[", 
    RowBox[{"1", ",", "#"}], "]"}], "&"}], "/@", "products"}]], "Input",
 CellChangeTimes->{{3.565617787660283*^9, 3.565617804630254*^9}, {
  3.5656179120253963`*^9, 3.565617929249381*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"goods", "[", 
    RowBox[{"1", ",", "1"}], "]"}], ",", 
   RowBox[{"goods", "[", 
    RowBox[{"1", ",", "2"}], "]"}], ",", 
   RowBox[{"goods", "[", 
    RowBox[{"1", ",", "3"}], "]"}]}], "}"}]], "Output",
 CellChangeTimes->{3.5656178053642955`*^9, 3.5656179305804577`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"agentGoods", "[", "1", "]"}]], "Input",
 CellChangeTimes->{{3.565617958385048*^9, 3.565617990696896*^9}, {
  3.5656180209276247`*^9, 3.565618022575719*^9}, {3.5656180565046597`*^9, 
  3.5656180569856873`*^9}, {3.5668245622018385`*^9, 3.566824573137464*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.566827025884753*^9, 3.5668270289339275`*^9}, {
  3.566827229132378*^9, 3.5668272677395864`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"q", "=."}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"q", " ", "=", " ", 
   RowBox[{"RandomChoice", "[", "productsNums", "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"Table", "[", 
   RowBox[{"q", ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", 
      RowBox[{"Length", "@", "productsNums"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"RandomChoice", "[", "productsNums", "]"}], "&"}], "/@", 
  "productsNums"}]}], "Input",
 CellChangeTimes->{{3.566826869644817*^9, 3.5668269307663126`*^9}, {
   3.5668269793910937`*^9, 3.566827111429646*^9}, {3.5668271912642126`*^9, 
   3.566827233133607*^9}, 3.5668272694036818`*^9, {3.5668899626415296`*^9, 
   3.5668900126353893`*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"RandomChoice", "::", "lrwl"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"The items for choice \[NoBreak]\\!\\(productsNums\\)\
\[NoBreak] should be a list or a rule weights -> choices. \\!\\(\\*ButtonBox[\
\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/RandomChoice\\\", ButtonNote -> \
\\\"RandomChoice::lrwl\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.5668899742591944`*^9, 3.56689001369545*^9}}],

Cell[BoxData["productsNums"], "Output",
 CellChangeTimes->{{3.566827213152464*^9, 3.566827280662326*^9}, {
  3.5668899742601943`*^9, 3.5668900136974497`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "mainCurrencies"}]], "Input",
 CellChangeTimes->{{3.5668244623841295`*^9, 3.5668245238446445`*^9}, {
  3.566824614904853*^9, 3.5668246155768914`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"2", ",", "4", ",", "2", ",", "3"}], "}"}]], "Output",
 CellChangeTimes->{{3.566824474160803*^9, 3.5668245243696747`*^9}, {
   3.566824611583663*^9, 3.566824615956913*^9}, 3.56682735696869*^9, 
   3.5668310157919626`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Select", "[", 
  RowBox[{
   RowBox[{"marketsGoods", "/@", "marketsN"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"Last", "@", "#"}], "==", 
     RowBox[{"First", "@", "mainCurrencies"}]}], "&"}]}], "]"}]], "Input",
 CellChangeTimes->{
  3.5656174777465568`*^9, {3.5656175512757626`*^9, 3.565617589954975*^9}, {
   3.5656185722291574`*^9, 3.565618638116926*^9}, {3.5656206806177506`*^9, 
   3.56562068077376*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"agentGoods", "[", "1", "]"}], "[", 
  RowBox[{"[", " ", 
   RowBox[{"Delete", "[", 
    RowBox[{"products", ",", 
     RowBox[{"First", "@", "mainCurrencies"}]}], "]"}], " ", "]"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.5656186702927666`*^9, 3.5656186765151224`*^9}, {
  3.565618714203278*^9, 3.5656187210836716`*^9}, {3.565620686414082*^9, 
  3.565620686622094*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"2.944314619744876`", ",", "7.01563650460975`"}], "}"}]], "Output",
 CellChangeTimes->{{3.565617477779559*^9, 3.5656174790226297`*^9}, {
   3.565617552197815*^9, 3.565617590591011*^9}, 3.5656185135488014`*^9, {
   3.56561863976202*^9, 3.5656186649274597`*^9}, {3.565618716592415*^9, 
   3.5656187237518244`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Delete", "[", 
  RowBox[{"products", ",", 
   RowBox[{"First", "@", "mainCurrencies"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.565618684553582*^9, 3.5656187057717957`*^9}, {
  3.5656206915093737`*^9, 3.5656206917333865`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", "3", ",", "4"}], "}"}]], "Output",
 CellChangeTimes->{{3.565618688046782*^9, 3.5656187063688297`*^9}, 
   3.566824454422674*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"With", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"allgoods", "=", 
      RowBox[{"agentGoods", "[", "1", "]"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"goods", "=", 
      RowBox[{
       RowBox[{"agentGoods", "[", "1", "]"}], "[", 
       RowBox[{"[", " ", 
        RowBox[{"Delete", "[", 
         RowBox[{"products", ",", 
          RowBox[{"First", "@", "mainCurrencies"}]}], "]"}], " ", "]"}], 
       "]"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"ind", "=", 
      RowBox[{"Delete", "[", 
       RowBox[{"products", ",", 
        RowBox[{"First", "@", "mainCurrencies"}]}], "]"}]}]}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"goods", "*", " ", 
       RowBox[{"marketLastPrice", "/@", "ind"}]}], ")"}], "~", "Join", "~", 
     RowBox[{"{", 
      RowBox[{"allgoods", "[", 
       RowBox[{"[", 
        RowBox[{"First", "@", "mainCurrencies"}], "]"}], "]"}], "}"}]}], "//",
     "Total"}]}], "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.565618782963211*^9, 3.565619019412735*^9}, {
  3.5656190918598785`*^9, 3.5656191047636166`*^9}, {3.565620695015574*^9, 
  3.5656207001838694`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"fGetCapital", "[", "an_", "]"}], ":=", 
  RowBox[{"With", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"allgoods", "=", 
       RowBox[{"agentGoods", "[", "an", "]"}]}], ",", "\[IndentingNewLine]", 
      RowBox[{"goods", "=", 
       RowBox[{
        RowBox[{"agentGoods", "[", "an", "]"}], "[", 
        RowBox[{"[", " ", 
         RowBox[{"Delete", "[", 
          RowBox[{"products", ",", 
           RowBox[{"First", "@", "mainCurrencies"}]}], "]"}], " ", "]"}], 
        "]"}]}], ",", "\[IndentingNewLine]", 
      RowBox[{"ind", "=", 
       RowBox[{"Delete", "[", 
        RowBox[{"products", ",", 
         RowBox[{"First", "@", "mainCurrencies"}]}], "]"}]}]}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"goods", "*", " ", 
        RowBox[{"marketLastPrice", "/@", "ind"}]}], ")"}], "~", "Join", "~", 
      RowBox[{"{", 
       RowBox[{"allgoods", "[", 
        RowBox[{"[", 
         RowBox[{"First", "@", "mainCurrencies"}], "]"}], "]"}], "}"}]}], "//",
      "Total"}]}], "\[IndentingNewLine]", "]"}]}]], "Input",
 CellChangeTimes->{{3.565619134921342*^9, 3.5656191589717174`*^9}, {
  3.565620702512003*^9, 3.5656207078233066`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"agentGoods", "[", "1", "]"}], "[", 
  RowBox[{"[", " ", 
   RowBox[{"Delete", "[", 
    RowBox[{"products", ",", 
     RowBox[{"First", "@", "mainCurrencies"}]}], "]"}], " ", "]"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.5656207104614573`*^9, 3.5656207106454678`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"agentGoods", "[", "1", "]"}]], "Input",
 CellChangeTimes->{{3.5656190430420866`*^9, 3.5656190449291945`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "23.94862888895996`", ",", "4.308179321925213`", ",", "2.038734004815754`", 
   ",", "27.760899557550488`"}], "}"}]], "Output",
 CellChangeTimes->{3.5656190452622137`*^9, 3.5657004114630938`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"markets", "[", "3", "]"}]], "Input",
 CellChangeTimes->{{3.565617503722042*^9, 3.5656175443473663`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"Title", "\[Rule]", "\<\"Oil/Whe\"\>"}], ",", 
   RowBox[{"G1", "\[Rule]", "3"}], ",", 
   RowBox[{"G2", "\[Rule]", "4"}], ",", 
   RowBox[{"History", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"1", ",", "5"}], "}"}], "}"}], "}"}]}], ",", 
   RowBox[{"DaySessions", "\[Rule]", "5"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.5656175127105565`*^9, 3.56561754511741*^9}, 
   3.565700422831744*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"marketLastPrice", "[", "3", "]"}]], "Input",
 CellChangeTimes->{{3.5656176502814255`*^9, 3.5656176651552763`*^9}}],

Cell[BoxData[
 FractionBox["1", "6"]], "Output",
 CellChangeTimes->{3.565617665684306*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"mainCurrencies", "[", "1", "]"}]], "Input",
 CellChangeTimes->{{3.5656183158264923`*^9, 3.5656183197337155`*^9}, 
   3.5656183514225283`*^9, 3.565618395006021*^9, {3.565687114369544*^9, 
   3.565687124457121*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"{", "2", "}"}], "[", "1", "]"}]], "Output",
 CellChangeTimes->{{3.5656183954880486`*^9, 3.5656184028074675`*^9}, 
   3.565618496846846*^9, {3.5656871152525945`*^9, 3.5656871249411483`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"fGetCapital", "/@", "agentsN"}]], "Input",
 CellChangeTimes->{{3.5656191668181663`*^9, 3.5656191762647066`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "91.95550929463145`", ",", "111.10357443783684`", ",", "94.55670064571507`",
    ",", "144.53695427502936`", ",", "98.25751243988509`", ",", 
   "114.04943854710697`", ",", "159.9339596081687`", ",", 
   "69.46703875199228`", ",", "52.18032917625216`", ",", 
   "106.85768335161036`", ",", "33.77897865478977`", ",", 
   "57.12191018282587`", ",", "44.23042188862152`", ",", "79.28287857032728`",
    ",", "106.13469360589201`"}], "}"}]], "Output",
 CellChangeTimes->{
  3.565619176818738*^9, {3.565689453626342*^9, 3.5656894728844433`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"arr", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"\"\<a\>\"", ",", " ", "\"\<b\>\"", ",", " ", "\"\<c\>\""}], 
    "}"}]}], ";", " ", 
  RowBox[{"ind", " ", "=", " ", "2"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"arr1", " ", "=", " ", 
  RowBox[{"Take", "[", 
   RowBox[{"arr", ",", " ", "ind"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.565699301221592*^9, 3.5656993531405616`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"a\"\>", ",", "\<\"b\"\>"}], "}"}]], "Output",
 CellChangeTimes->{3.565699354656648*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ProduceMatrix", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0", ",", " ", "0.5", ",", " ", "1", ",", " ", "0"}], "}"}], 
     ",", " ", 
     RowBox[{"{", 
      RowBox[{"0.2", ",", " ", "0", ",", " ", "3", ",", " ", "0"}], "}"}], 
     ",", " ", 
     RowBox[{"{", 
      RowBox[{"2", ",", " ", "3", ",", " ", "0", ",", " ", "0.1"}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{"0.3", ",", " ", "0", ",", " ", "0.2", ",", " ", "0"}], "}"}]}],
     "}"}]}], ";", " ", 
  RowBox[{"ProduceMatrix", "//", "MatrixForm"}]}]], "Input",
 CellChangeTimes->{{3.5657024035660357`*^9, 3.5657024187009015`*^9}, {
  3.5657025972751155`*^9, 3.565702685784178*^9}}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", "0.5`", "1", "0"},
     {"0.2`", "0", "3", "0"},
     {"2", "3", "0", "0.1`"},
     {"0.3`", "0", "0.2`", "0"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.5657026606867423`*^9, 3.5657026869772463`*^9}}]
}, Open  ]],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{{3.566735128712536*^9, 3.5667351786243906`*^9}, {
  3.566814942372616*^9, 3.5668149733513875`*^9}, {3.566815028180524*^9, 
  3.566815042836362*^9}}],

Cell[CellGroupData[{

Cell[BoxData["agents"], "Input",
 CellChangeTimes->{{3.566815061284417*^9, 3.566815081507574*^9}, {
  3.566886490401929*^9, 3.566886496292266*^9}, {3.566886535514509*^9, 
  3.566886536819584*^9}, {3.566889482981095*^9, 3.56688948359713*^9}}],

Cell[BoxData["agents"], "Output",
 CellChangeTimes->{3.566889484421177*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"nums", " ", "=", " ", 
     RowBox[{"{", 
      RowBox[{"1", ",", "2", ",", "3"}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"pM0", "=", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"0", "    ", "*", " ", "#"}], "&"}], "/@", "nums"}], "&"}], "/@",
       "nums"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"RandomInteger", "[", "10", "]"}], " ", "&"}], "/@", " ", 
    "nums"}]}]}]], "Input",
 CellChangeTimes->{{3.5668894452289352`*^9, 3.5668895450456443`*^9}, {
  3.5668898393154755`*^9, 3.566889902107067*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"9", ",", "10", ",", "6"}], "}"}]], "Output",
 CellChangeTimes->{{3.5668894688322854`*^9, 3.5668895458856926`*^9}, {
  3.5668898860201473`*^9, 3.566889908196416*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"h", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"0", ",", " ", "0", ",", " ", "0"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"1", ",", " ", "2", ",", " ", "3"}], "}"}]}], "}"}]}], ";", " ", 
  RowBox[{"Total", "[", "h", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"hAgentsGoods", "[", 
  RowBox[{"[", 
   RowBox[{"1", ",", " ", "All"}], "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.5668150363959937`*^9, 3.5668150364339952`*^9}, {
  3.567940840431861*^9, 3.5679408871445327`*^9}, {3.5679413017252455`*^9, 
  3.567941302837309*^9}, {3.567941342772593*^9, 3.5679414039080896`*^9}, {
  3.567943232759694*^9, 3.567943246967507*^9}, {3.567943286918792*^9, 
  3.567943387030518*^9}, {3.56794352291729*^9, 3.567943566013755*^9}, {
  3.567943804491395*^9, 3.5679438432036095`*^9}, {3.567946820317891*^9, 
  3.567946836288804*^9}, {3.5679471352129016`*^9, 3.5679471357489324`*^9}, {
  3.5679501734526787`*^9, 3.5679501901576347`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"2", ",", "4", ",", "6"}], "}"}]], "Output",
 CellChangeTimes->{{3.5679433200436864`*^9, 3.5679433570418024`*^9}, 
   3.567943387380538*^9, {3.567943528977637*^9, 3.567943566358775*^9}, {
   3.5679438048814173`*^9, 3.5679438433816195`*^9}, {3.5679468214849577`*^9, 
   3.5679468387539454`*^9}, {3.567947130160613*^9, 3.567947136173957*^9}, 
   3.5679472058419414`*^9, {3.5679501773429017`*^9, 3.567950191314701*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "5.646601070238995`", ",", "10.217482905193949`", ",", 
     "15.579614837999449`", ",", "20.941746770804947`", ",", 
     "26.303878703610444`", ",", "31.66601063641594`", ",", 
     "37.02814256922144`", ",", "42.390274502026934`", ",", 
     "47.75240643483243`", ",", "53.11453836763793`", ",", 
     "58.47667030044342`", ",", "63.83880223324892`", ",", 
     "69.20093416605442`", ",", "74.56306609885992`", ",", 
     "79.92519803166542`", ",", "85.28732996447091`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "8.941822496773565`", ",", "14.139397786998774`", ",", 
     "19.336973077223984`", ",", "24.534548367449194`", ",", 
     "29.732123657674403`", ",", "34.92969894789961`", ",", 
     "40.12727423812482`", ",", "45.32484952835003`", ",", 
     "50.52242481857524`", ",", "55.72000010880045`", ",", 
     "60.91757539902566`", ",", "66.11515068925087`", ",", 
     "71.31272597947608`", ",", "76.5103012697013`", ",", 
     "81.70787655992652`", ",", "86.90545185015174`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "4.439750684007036`", ",", "3.7927380993432385`", ",", 
     "7.559999849800006`", ",", "11.327261600256772`", ",", 
     "15.09452335071354`", ",", "18.86178510117031`", ",", 
     "22.629046851627077`", ",", "26.396308602083845`", ",", 
     "30.163570352540614`", ",", "33.93083210299738`", ",", 
     "37.69809385345415`", ",", "41.465355603910915`", ",", 
     "45.23261735436768`", ",", "48.99987910482445`", ",", 
     "52.76714085528122`", ",", "56.53440260573799`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "10.544230294089207`", ",", "15.530530801822643`", ",", 
     "22.48306421258247`", ",", "29.435597623342296`", ",", 
     "36.38813103410212`", ",", "43.34066444486195`", ",", 
     "50.29319785562178`", ",", "57.245731266381604`", ",", 
     "64.19826467714142`", ",", "71.15079808790125`", ",", 
     "78.10333149866108`", ",", "85.0558649094209`", ",", 
     "92.00839832018073`", ",", "98.96093173094056`", ",", 
     "105.91346514170039`", ",", "112.86599855246021`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "2.423988725482751`", ",", "5.996952114761019`", ",", 
     "6.276132040390857`", ",", "6.555311966020697`", ",", 
     "6.834491891650536`", ",", "7.113671817280376`", ",", 
     "7.392851742910215`", ",", "7.672031668540055`", ",", 
     "7.951211594169894`", ",", "8.230391519799733`", ",", 
     "8.509571445429572`", ",", "8.78875137105941`", ",", 
     "9.067931296689249`", ",", "9.347111222319088`", ",", 
     "9.626291147948926`", ",", "9.905471073578765`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "17.393417824806072`", ",", "17.393417824806072`", ",", 
     "17.393417824806072`", ",", "17.393417824806072`", ",", 
     "17.393417824806072`", ",", "17.393417824806072`", ",", 
     "17.393417824806072`", ",", "17.393417824806072`", ",", 
     "17.393417824806072`", ",", "17.393417824806072`", ",", 
     "17.393417824806072`", ",", "17.393417824806072`", ",", 
     "17.393417824806072`", ",", "17.393417824806072`", ",", 
     "17.393417824806072`", ",", "17.393417824806072`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"6.629670834584101`", ",", 
     RowBox[{"-", "8.881784197001252`*^-16"}], ",", 
     RowBox[{"-", "1.1102230246251565`*^-16"}], ",", 
     RowBox[{"-", "1.1102230246251565`*^-16"}], ",", 
     RowBox[{"-", "1.1102230246251565`*^-16"}], ",", 
     RowBox[{"-", "1.1102230246251565`*^-16"}], ",", 
     RowBox[{"-", "1.1102230246251565`*^-16"}], ",", 
     RowBox[{"-", "1.1102230246251565`*^-16"}], ",", 
     RowBox[{"-", "1.1102230246251565`*^-16"}], ",", 
     RowBox[{"-", "1.1102230246251565`*^-16"}], ",", 
     RowBox[{"-", "1.1102230246251565`*^-16"}], ",", 
     RowBox[{"-", "1.1102230246251565`*^-16"}], ",", 
     RowBox[{"-", "1.1102230246251565`*^-16"}], ",", 
     RowBox[{"-", "1.1102230246251565`*^-16"}], ",", 
     RowBox[{"-", "1.1102230246251565`*^-16"}], ",", 
     RowBox[{"-", "1.1102230246251565`*^-16"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.5679433200436864`*^9, 3.5679433570418024`*^9}, 
   3.567943387380538*^9, {3.567943528977637*^9, 3.567943566358775*^9}, {
   3.5679438048814173`*^9, 3.5679438433816195`*^9}, {3.5679468214849577`*^9, 
   3.5679468387539454`*^9}, {3.567947130160613*^9, 3.567947136173957*^9}, 
   3.5679472058419414`*^9, {3.5679501773429017`*^9, 3.567950191317701*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"1", ",", "2", ",", "3"}], "}"}]}], "}"}], 
  "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.567943226638344*^9, 3.567943226658345*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"hTotalProduced", "[", 
  RowBox[{"[", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.5679441550054436`*^9, 3.5679442093925543`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}],
     "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "0", ",", "0", ",", "11.136201962644378`", ",", "21.69075105391096`", ",",
      "11.015991486549341`", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "0", ",", "0", ",", "4.424354314212407`", ",", "4.826682776739915`", ",", 
     "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "0", ",", "0", ",", "9.166678682555707`*^-16", ",", "4.429588669823029`", 
     ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "0", ",", "0", ",", "0", ",", "1.3683795862251402`", ",", "0", ",", "0", 
     ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "0", ",", "0", ",", "0", ",", "1.3683795862251402`", ",", "0", ",", "0", 
     ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "0", ",", "0", ",", "0", ",", "1.3683795862251402`", ",", "0", ",", "0", 
     ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "0", ",", "0", ",", "0", ",", "1.3683795862251402`", ",", "0", ",", "0", 
     ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "0", ",", "0", ",", "0", ",", "1.3683795862251402`", ",", "0", ",", "0", 
     ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "0", ",", "0", ",", "0", ",", "1.3683795862251402`", ",", "0", ",", "0", 
     ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "0", ",", "0", ",", "0", ",", "1.3683795862251402`", ",", "0", ",", "0", 
     ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "0", ",", "0", ",", "0", ",", "1.3683795862251402`", ",", "0", ",", "0", 
     ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "0", ",", "0", ",", "0", ",", "1.3683795862251402`", ",", "0", ",", "0", 
     ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "0", ",", "0", ",", "0", ",", "1.3683795862251402`", ",", "0", ",", "0", 
     ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "0", ",", "0", ",", "0", ",", "1.3683795862251402`", ",", "0", ",", "0", 
     ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "0", ",", "0", ",", "0", ",", "1.3683795862251402`", ",", "0", ",", "0", 
     ",", "0"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.56794415703856*^9, 3.5679441693382635`*^9}, {
  3.567944204878296*^9, 3.567944209705572*^9}}]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.5679468638853827`*^9, 3.567946931413245*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Total", "@", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"0", " ", "&"}], "/@", "productsNums"}], ")"}]}], " ", "&"}], "/@",
    " ", "agentsNums"}], ";", " ", "prs", ";"}]], "Input",
 CellChangeTimes->{{3.5679503884009733`*^9, 3.567950428823285*^9}, {
  3.5679506474647913`*^9, 3.5679506655618258`*^9}, {3.5679510207501416`*^9, 
  3.5679510302456846`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Total", "@", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}],
     ",", 
    RowBox[{"{", 
     RowBox[{
     "0", ",", "2", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}],
     ",", 
    RowBox[{"{", 
     RowBox[{
     "0", ",", "0", ",", "3", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}],
     ",", 
    RowBox[{"{", 
     RowBox[{
     "0", ",", "0", ",", "0", ",", "4", ",", "0", ",", "0", ",", "0"}], "}"}],
     ",", 
    RowBox[{"{", 
     RowBox[{
     "0", ",", "0", ",", "0", ",", "0", ",", "5", ",", "0", ",", "0"}], 
     "}"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.567951003853175*^9, 3.567951034968955*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "0", ",", "0"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.5679510354659834`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"pr", " ", "=", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"0", "&"}], "/@", "productsNums"}], ")"}], "&"}], "/@", 
     "agentsNums"}]}], ";", "  ", 
   RowBox[{
    RowBox[{"pr", "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", " ", "3"}], "]"}], "]"}], " ", "+=", " ", "5"}], ";", 
   " ", 
   RowBox[{"Total", "@", "pr"}]}]}]], "Input",
 CellChangeTimes->{{3.5679518501635814`*^9, 3.5679518751360097`*^9}, {
  3.56795192864007*^9, 3.567951945296023*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0", ",", "0", ",", "5", ",", "0", ",", "0", ",", "0", ",", "0"}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.567951851782674*^9, 3.567951875440027*^9}, {
  3.567951930186158*^9, 3.5679519456570435`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"a", " ", "=", " ", 
    RowBox[{"Hold", "@", 
     RowBox[{"(", 
      RowBox[{"2", "/", "10"}], ")"}]}]}], ";", " ", "a"}]}]], "Input",
 CellChangeTimes->{{3.567999720515609*^9, 3.56799976162996*^9}, {
  3.5679998176221633`*^9, 3.5679998340701036`*^9}, {3.5679998835979366`*^9, 
  3.5679998865271044`*^9}, {3.5680014483624363`*^9, 3.5680014804662724`*^9}, {
  3.568001655889306*^9, 3.5680016563393316`*^9}, {3.568001736416912*^9, 
  3.5680017480565777`*^9}}],

Cell[BoxData[
 RowBox[{"Hold", "[", 
  FractionBox["2", "10"], "]"}]], "Output",
 CellChangeTimes->{{3.5680014499845285`*^9, 3.568001477661112*^9}, 
   3.5680016567713566`*^9, {3.5680017382430162`*^9, 3.5680017483935966`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"List", "/@", "marketsNums"}]}]], "Input",
 CellChangeTimes->{{3.568118492902001*^9, 3.568118494577097*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", "1", "}"}], ",", 
   RowBox[{"{", "2", "}"}], ",", 
   RowBox[{"{", "3", "}"}], ",", 
   RowBox[{"{", "4", "}"}], ",", 
   RowBox[{"{", "5", "}"}], ",", 
   RowBox[{"{", "6", "}"}], ",", 
   RowBox[{"{", "7", "}"}], ",", 
   RowBox[{"{", "8", "}"}], ",", 
   RowBox[{"{", "9", "}"}], ",", 
   RowBox[{"{", "10", "}"}], ",", 
   RowBox[{"{", "11", "}"}], ",", 
   RowBox[{"{", "12", "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.568118497013236*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Protect", "[", "t", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"t", " ", "=", " ", "3"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"t", "\[IndentingNewLine]", 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"<<", "MultiAgent`"}]}], "Input",
 CellChangeTimes->{{3.5683819526090345`*^9, 3.568381952645036*^9}, {
  3.5683824006096582`*^9, 3.568382406640003*^9}, {3.5683832676712513`*^9, 
  3.5683832730705605`*^9}, {3.568641465416272*^9, 3.5686415543113565`*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Set", "::", "wrsym"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Symbol \[NoBreak]\\!\\(t\\)\[NoBreak] is Protected. \\!\\(\
\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/wrsym\\\", \
ButtonNote -> \\\"Set::wrsym\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.5686415548553877`*^9}],

Cell[BoxData["t"], "Output",
 CellChangeTimes->{{3.568641543154719*^9, 3.568641554856388*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"MAEVisProducts", "[", "1", "]"}]}]], "Input",
 CellChangeTimes->{{3.5683819708520775`*^9, 3.568382002833907*^9}, {
   3.568382072137871*^9, 3.5683820822014465`*^9}, 3.5683821347064495`*^9, {
   3.5683824150154824`*^9, 3.5683824151744914`*^9}}],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{{
       Opacity[0], 
       PointBox[{{0.4, 0.}}]}, {{}, {{{}, {{}, {{
            RGBColor[0.66, 0.7960000000000002, 1.], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{0.5, 0.}, {1.5, 14.590668395553234`}, 
                  "RoundingRadius" -> 0]}, 
                ImageSizeCache -> {{19.399214659685867`, 
                 36.391361256544506`}, {102.17926800006276`, 
                 109.98655450738802`}}], StatusArea[#, 14.590668395553234`]& ,
                TagBoxNote -> "14.590668395553234"], 
              StyleBox["14.590668395553234`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[14.590668395553234`, {
                GrayLevel[0]}], "Tooltip"]& ]}, {
            RGBColor[0.66, 1., 1.], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{0.5, 14.590668395553234`}, {1.5, 
                  37.46805750461645}, "RoundingRadius" -> 0]}, 
                ImageSizeCache -> {{19.399214659685867`, 
                 36.391361256544506`}, {90.72183286224303, 
                 102.67926800006276`}}], StatusArea[#, 22.877389109063223`]& ,
                TagBoxNote -> "22.877389109063223"], 
              StyleBox["22.877389109063223`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[22.877389109063223`, {
                GrayLevel[0]}], "Tooltip"]& ]}, {
            RGBColor[0.66, 1., 0.796], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{0.5, 37.46805750461645}, {1.5, 
                  40.49007109251391}, "RoundingRadius" -> 0]}, 
                ImageSizeCache -> {{19.399214659685867`, 
                 36.391361256544506`}, {89.20835051056909, 
                 91.22183286224303}}], StatusArea[#, 3.022013587897452]& , 
               TagBoxNote -> "3.022013587897452"], 
              StyleBox["3.022013587897452`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[3.022013587897452, {
                GrayLevel[0]}], "Tooltip"]& ]}, {
            RGBColor[0.7280000000000001, 1., 0.66], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{0.5, 40.49007109251391}, {1.5, 
                  47.52474671373227}, "RoundingRadius" -> 0]}, 
                ImageSizeCache -> {{19.399214659685867`, 
                 36.391361256544506`}, {85.68525007015299, 
                 89.70835051056909}}], StatusArea[#, 7.034675621218364]& , 
               TagBoxNote -> "7.034675621218364"], 
              StyleBox["7.034675621218364`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[7.034675621218364, {
                GrayLevel[0]}], "Tooltip"]& ]}, {
            RGBColor[0.932, 1., 0.66], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{0.5, 47.52474671373227}, {1.5, 
                  53.92133285341476}, "RoundingRadius" -> 0]}, 
                ImageSizeCache -> {{19.399214659685867`, 
                 36.391361256544506`}, {82.48171707740188, 
                 86.18525007015299}}], StatusArea[#, 6.396586139682489]& , 
               TagBoxNote -> "6.396586139682489"], 
              StyleBox["6.396586139682489`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[6.396586139682489, {
                GrayLevel[0]}], "Tooltip"]& ]}, {
            RGBColor[1., 0.864, 0.66], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{0.5, 53.92133285341476}, {1.5, 
                  71.40349305453418}, "RoundingRadius" -> 0]}, 
                ImageSizeCache -> {{19.399214659685867`, 
                 36.391361256544506`}, {73.72631602973831, 
                 82.98171707740188}}], StatusArea[#, 17.482160201119413`]& , 
               TagBoxNote -> "17.482160201119413"], 
              StyleBox["17.482160201119413`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[17.482160201119413`, {
                GrayLevel[0]}], "Tooltip"]& ]}, {
            RGBColor[1., 0.66, 0.66], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{0.5, 71.40349305453418}, {1.5, 
                  93.57940797107125}, "RoundingRadius" -> 0]}, 
                ImageSizeCache -> {{19.399214659685867`, 
                 36.391361256544506`}, {62.62019261824399, 
                 74.22631602973831}}], StatusArea[#, 22.17591491653706]& , 
               TagBoxNote -> "22.17591491653706"], 
              StyleBox["22.17591491653706`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[22.17591491653706, {
                GrayLevel[0]}], "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
            RGBColor[0.66, 0.7960000000000002, 1.], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{1.7, 0.}, {2.7, 27.601760064650072`}, 
                  "RoundingRadius" -> 0]}, 
                ImageSizeCache -> {{39.189790575916234`, 56.18193717277488}, {
                 95.66306380559698, 109.98655450738802`}}], 
               StatusArea[#, 27.601760064650072`]& , TagBoxNote -> 
               "27.601760064650072"], 
              StyleBox["27.601760064650072`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[27.601760064650072`, {
                GrayLevel[0]}], "Tooltip"]& ]}, {}, {
            RGBColor[0.66, 1., 0.796], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{1.7, 27.601760064650072`}, {2.7, 
                  30.623773652547523`}, "RoundingRadius" -> 0]}, 
                ImageSizeCache -> {{39.189790575916234`, 56.18193717277488}, {
                 94.14958145392303, 96.16306380559698}}], 
               StatusArea[#, 3.022013587897452]& , TagBoxNote -> 
               "3.022013587897452"], 
              StyleBox["3.022013587897452`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[3.022013587897452, {
                GrayLevel[0]}], "Tooltip"]& ]}, {
            RGBColor[0.7280000000000001, 1., 0.66], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{1.7, 30.623773652547523`}, {2.7, 
                  49.08556193952569}, "RoundingRadius" -> 0]}, 
                ImageSizeCache -> {{39.189790575916234`, 56.18193717277488}, {
                 84.90356387657573, 94.64958145392303}}], 
               StatusArea[#, 18.461788286978166`]& , TagBoxNote -> 
               "18.461788286978166"], 
              StyleBox["18.461788286978166`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[18.461788286978166`, {
                GrayLevel[0]}], "Tooltip"]& ]}, {
            RGBColor[0.932, 1., 0.66], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{1.7, 49.08556193952569}, {2.7, 
                  60.68976846097608}, "RoundingRadius" -> 0]}, 
                ImageSizeCache -> {{39.189790575916234`, 56.18193717277488}, {
                 79.09195474095498, 85.40356387657573}}], 
               StatusArea[#, 11.604206521450394`]& , TagBoxNote -> 
               "11.604206521450394"], 
              StyleBox["11.604206521450394`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[11.604206521450394`, {
                GrayLevel[0]}], "Tooltip"]& ]}, {
            RGBColor[1., 0.864, 0.66], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{1.7, 60.68976846097608}, {2.7, 
                  79.98751223398962}, "RoundingRadius" -> 0]}, 
                ImageSizeCache -> {{39.189790575916234`, 56.18193717277488}, {
                 69.42727462682544, 79.59195474095498}}], 
               StatusArea[#, 19.297743773013536`]& , TagBoxNote -> 
               "19.297743773013536"], 
              StyleBox["19.297743773013536`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[19.297743773013536`, {
                GrayLevel[0]}], "Tooltip"]& ]}, {
            RGBColor[1., 0.66, 0.66], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{1.7, 79.98751223398962}, {2.7, 
                  85.43822110153687}, "RoundingRadius" -> 0]}, 
                ImageSizeCache -> {{39.189790575916234`, 56.18193717277488}, {
                 66.69745510907633, 69.92727462682544}}], 
               StatusArea[#, 5.450708867547256]& , TagBoxNote -> 
               "5.450708867547256"], 
              StyleBox["5.450708867547256`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[5.450708867547256, {
                GrayLevel[0]}], "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
            RGBColor[0.66, 0.7960000000000002, 1.], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{2.9000000000000004`, 0.}, {3.9000000000000004`,
                   40.61285173374691}, "RoundingRadius" -> 0]}, 
                ImageSizeCache -> {{58.980366492146615`, 75.97251308900526}, {
                 89.14685961113119, 109.98655450738802`}}], 
               StatusArea[#, 40.61285173374691]& , TagBoxNote -> 
               "40.61285173374691"], 
              StyleBox["40.61285173374691`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[40.61285173374691, {
                GrayLevel[0]}], "Tooltip"]& ]}, {}, {
            RGBColor[0.66, 1., 0.796], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{2.9000000000000004`, 40.61285173374691}, {
                  3.9000000000000004`, 43.63486532164436}, "RoundingRadius" -> 
                  0]}, ImageSizeCache -> {{58.980366492146615`, 
                 75.97251308900526}, {87.63337725945725, 89.64685961113119}}],
                StatusArea[#, 3.022013587897452]& , TagBoxNote -> 
               "3.022013587897452"], 
              StyleBox["3.022013587897452`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[3.022013587897452, {
                GrayLevel[0]}], "Tooltip"]& ]}, {
            RGBColor[0.7280000000000001, 1., 0.66], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{2.9000000000000004`, 43.63486532164436}, {
                  3.9000000000000004`, 64.08056290694591}, "RoundingRadius" -> 
                  0]}, ImageSizeCache -> {{58.980366492146615`, 
                 75.97251308900526}, {77.39377986421663, 88.13337725945725}}],
                StatusArea[#, 20.445697585301556`]& , TagBoxNote -> 
               "20.445697585301556"], 
              StyleBox["20.445697585301556`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[20.445697585301556`, {
                GrayLevel[0]}], "Tooltip"]& ]}, {
            RGBColor[0.932, 1., 0.66], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{2.9000000000000004`, 64.08056290694591}, {
                  3.9000000000000004`, 80.89238981016422}, "RoundingRadius" -> 
                  0]}, ImageSizeCache -> {{58.980366492146615`, 
                 75.97251308900526}, {68.97409458572622, 77.89377986421663}}],
                StatusArea[#, 16.811826903218297`]& , TagBoxNote -> 
               "16.811826903218297"], 
              StyleBox["16.811826903218297`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[16.811826903218297`, {
                GrayLevel[0]}], "Tooltip"]& ]}, {
            RGBColor[1., 0.864, 0.66], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{2.9000000000000004`, 80.89238981016422}, {
                  3.9000000000000004`, 102.00571715507188`}, "RoundingRadius" -> 
                  0]}, ImageSizeCache -> {{58.980366492146615`, 
                 75.97251308900526}, {58.40013540513069, 69.47409458572622}}],
                StatusArea[#, 21.11332734490766]& , TagBoxNote -> 
               "21.11332734490766"], 
              StyleBox["21.11332734490766`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[21.11332734490766, {
                GrayLevel[0]}], "Tooltip"]& ]}, {
            RGBColor[1., 0.66, 0.66], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{2.9000000000000004`, 102.00571715507188`}, {
                  3.9000000000000004`, 103.62583331823808`}, "RoundingRadius" -> 
                  0]}, ImageSizeCache -> {{58.980366492146615`, 
                 75.97251308900526}, {57.588750165026674`, 
                 58.90013540513069}}], StatusArea[#, 1.6201161631662027`]& , 
               TagBoxNote -> "1.6201161631662027"], 
              StyleBox["1.6201161631662027`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[1.6201161631662027`, {
                GrayLevel[0]}], "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
            RGBColor[0.66, 0.7960000000000002, 1.], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{4.1000000000000005`, 0.}, {5.1000000000000005`,
                   53.62394340284374}, "RoundingRadius" -> 0]}, 
                ImageSizeCache -> {{78.77094240837698, 95.76308900523563}, {
                 82.6306554166654, 109.98655450738802`}}], 
               StatusArea[#, 53.62394340284374]& , TagBoxNote -> 
               "53.62394340284374"], 
              StyleBox["53.62394340284374`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[53.62394340284374, {
                GrayLevel[0]}], "Tooltip"]& ]}, {}, {
            RGBColor[0.66, 1., 0.796], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{4.1000000000000005`, 53.62394340284374}, {
                  5.1000000000000005`, 56.6459569907412}, "RoundingRadius" -> 
                  0]}, ImageSizeCache -> {{78.77094240837698, 
                 95.76308900523563}, {81.11717306499146, 83.1306554166654}}], 
               StatusArea[#, 3.022013587897452]& , TagBoxNote -> 
               "3.022013587897452"], 
              StyleBox["3.022013587897452`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[3.022013587897452, {
                GrayLevel[0]}], "Tooltip"]& ]}, {
            RGBColor[0.7280000000000001, 1., 0.66], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{4.1000000000000005`, 56.6459569907412}, {
                  5.1000000000000005`, 79.07556387436614}, "RoundingRadius" -> 
                  0]}, ImageSizeCache -> {{78.77094240837698, 
                 95.76308900523563}, {69.88399585185752, 81.61717306499146}}],
                StatusArea[#, 22.429606883624945`]& , TagBoxNote -> 
               "22.429606883624945"], 
              StyleBox["22.429606883624945`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[22.429606883624945`, {
                GrayLevel[0]}], "Tooltip"]& ]}, {
            RGBColor[0.932, 1., 0.66], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{4.1000000000000005`, 79.07556387436614}, {
                  5.1000000000000005`, 101.09501115935234`}, "RoundingRadius" -> 
                  0]}, ImageSizeCache -> {{78.77094240837698, 
                 95.76308900523563}, {58.85623443049746, 70.38399585185752}}],
                StatusArea[#, 22.0194472849862]& , TagBoxNote -> 
               "22.0194472849862"], 
              StyleBox["22.0194472849862`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[22.0194472849862, {
                GrayLevel[0]}], "Tooltip"]& ]}, {
            RGBColor[1., 0.864, 0.66], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{4.1000000000000005`, 101.09501115935234`}, {
                  5.1000000000000005`, 124.02392207615412`}, "RoundingRadius" -> 
                  0]}, ImageSizeCache -> {{78.77094240837698, 
                 95.76308900523563}, {47.37299618343595, 59.35623443049746}}],
                StatusArea[#, 22.928910916801783`]& , TagBoxNote -> 
               "22.928910916801783"], 
              StyleBox["22.928910916801783`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[22.928910916801783`, {
                GrayLevel[0]}], "Tooltip"]& ]}, {
            RGBColor[1., 0.66, 0.66], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{4.1000000000000005`, 124.02392207615412`}, {
                  5.1000000000000005`, 124.76671329492936`}, "RoundingRadius" -> 
                  0]}, ImageSizeCache -> {{78.77094240837698, 
                 95.76308900523563}, {47.00099209811453, 47.87299618343595}}],
                StatusArea[#, 0.742791218775241]& , TagBoxNote -> 
               "0.742791218775241"], 
              StyleBox["0.742791218775241`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[0.742791218775241, {
                GrayLevel[0]}], "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
            RGBColor[0.66, 0.7960000000000002, 1.], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{5.300000000000001, 0.}, {6.300000000000001, 
                  66.63503507194058}, "RoundingRadius" -> 0]}, 
                ImageSizeCache -> {{98.56151832460736, 115.55366492146601`}, {
                 76.11445122219962, 109.98655450738802`}}], 
               StatusArea[#, 66.63503507194058]& , TagBoxNote -> 
               "66.63503507194058"], 
              StyleBox["66.63503507194058`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[66.63503507194058, {
                GrayLevel[0]}], "Tooltip"]& ]}, {}, {
            RGBColor[0.66, 1., 0.796], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{5.300000000000001, 66.63503507194058}, {
                  6.300000000000001, 69.65704865983803}, "RoundingRadius" -> 
                  0]}, ImageSizeCache -> {{98.56151832460736, 
                 115.55366492146601`}, {74.60096887052569, 
                 76.61445122219962}}], StatusArea[#, 3.022013587897452]& , 
               TagBoxNote -> "3.022013587897452"], 
              StyleBox["3.022013587897452`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[3.022013587897452, {
                GrayLevel[0]}], "Tooltip"]& ]}, {
            RGBColor[0.7280000000000001, 1., 0.66], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{5.300000000000001, 69.65704865983803}, {
                  6.300000000000001, 94.07056484178636}, "RoundingRadius" -> 
                  0]}, ImageSizeCache -> {{98.56151832460736, 
                 115.55366492146601`}, {62.37421183949841, 
                 75.10096887052569}}], StatusArea[#, 24.413516181948335`]& , 
               TagBoxNote -> "24.413516181948335"], 
              StyleBox["24.413516181948335`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[24.413516181948335`, {
                GrayLevel[0]}], "Tooltip"]& ]}, {
            RGBColor[0.932, 1., 0.66], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{5.300000000000001, 94.07056484178636}, {
                  6.300000000000001, 121.29763250854046`}, "RoundingRadius" -> 
                  0]}, ImageSizeCache -> {{98.56151832460736, 
                 115.55366492146601`}, {48.738374275268704`, 
                 62.87421183949841}}], StatusArea[#, 27.227067666754103`]& , 
               TagBoxNote -> "27.227067666754103"], 
              StyleBox["27.227067666754103`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[27.227067666754103`, {
                GrayLevel[0]}], "Tooltip"]& ]}, {
            RGBColor[1., 0.864, 0.66], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{5.300000000000001, 121.29763250854046`}, {
                  6.300000000000001, 146.04212699723638`}, "RoundingRadius" -> 
                  0]}, ImageSizeCache -> {{98.56151832460736, 
                 115.55366492146601`}, {36.34585696174122, 
                 49.238374275268704`}}], StatusArea[#, 24.744494488695906`]& ,
                TagBoxNote -> "24.744494488695906"], 
              StyleBox["24.744494488695906`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[24.744494488695906`, {
                GrayLevel[0]}], "Tooltip"]& ]}, {
            RGBColor[1., 0.66, 0.66], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{5.300000000000001, 146.04212699723638`}, {
                  6.300000000000001, 146.58398349978083`}, "RoundingRadius" -> 
                  0]}, ImageSizeCache -> {{98.56151832460736, 
                 115.55366492146601`}, {36.07448483521435, 
                 36.84585696174122}}], StatusArea[#, 0.5418565025444348]& , 
               TagBoxNote -> "0.5418565025444348"], 
              StyleBox["0.5418565025444348`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[0.5418565025444348, {
                GrayLevel[0]}], "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
            RGBColor[0.66, 0.7960000000000002, 1.], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{6.500000000000001, 0.}, {7.500000000000001, 
                  79.64612674103742}, "RoundingRadius" -> 0]}, 
                ImageSizeCache -> {{118.35209424083773`, 
                 135.34424083769636`}, {69.59824702773383, 
                 109.98655450738802`}}], StatusArea[#, 79.64612674103742]& , 
               TagBoxNote -> "79.64612674103742"], 
              StyleBox["79.64612674103742`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[79.64612674103742, {
                GrayLevel[0]}], "Tooltip"]& ]}, {}, {
            RGBColor[0.66, 1., 0.796], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{6.500000000000001, 79.64612674103742}, {
                  7.500000000000001, 82.66814032893487}, "RoundingRadius" -> 
                  0]}, ImageSizeCache -> {{118.35209424083773`, 
                 135.34424083769636`}, {68.08476467605989, 
                 70.09824702773383}}], StatusArea[#, 3.022013587897452]& , 
               TagBoxNote -> "3.022013587897452"], 
              StyleBox["3.022013587897452`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[3.022013587897452, {
                GrayLevel[0]}], "Tooltip"]& ]}, {
            RGBColor[0.7280000000000001, 1., 0.66], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{6.500000000000001, 82.66814032893487}, {
                  7.500000000000001, 109.06556580920659`}, "RoundingRadius" -> 
                  0]}, ImageSizeCache -> {{118.35209424083773`, 
                 135.34424083769636`}, {54.8644278271393, 
                 68.58476467605989}}], StatusArea[#, 26.397425480271725`]& , 
               TagBoxNote -> "26.397425480271725"], 
              StyleBox["26.397425480271725`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[26.397425480271725`, {
                GrayLevel[0]}], "Tooltip"]& ]}, {
            RGBColor[0.932, 1., 0.66], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{6.500000000000001, 109.06556580920659`}, {
                  7.500000000000001, 141.50025385772858`}, "RoundingRadius" -> 
                  0]}, ImageSizeCache -> {{118.35209424083773`, 
                 135.34424083769636`}, {38.62051412003996, 
                 55.3644278271393}}], StatusArea[#, 32.434688048522005`]& , 
               TagBoxNote -> "32.434688048522005"], 
              StyleBox["32.434688048522005`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[32.434688048522005`, {
                GrayLevel[0]}], "Tooltip"]& ]}, {
            RGBColor[1., 0.864, 0.66], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{6.500000000000001, 141.50025385772858`}, {
                  7.500000000000001, 168.0603319183186}, "RoundingRadius" -> 
                  0]}, ImageSizeCache -> {{118.35209424083773`, 
                 135.34424083769636`}, {25.31871774004648, 
                 39.12051412003996}}], StatusArea[#, 26.56007806059003]& , 
               TagBoxNote -> "26.56007806059003"], 
              StyleBox["26.56007806059003`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[26.56007806059003, {
                GrayLevel[0]}], "Tooltip"]& ]}, {
            RGBColor[1., 0.66, 0.66], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{6.500000000000001, 168.0603319183186}, {
                  7.500000000000001, 168.55616811738838`}, "RoundingRadius" -> 
                  0]}, ImageSizeCache -> {{118.35209424083773`, 
                 135.34424083769636`}, {25.070393463935176`, 
                 25.81871774004648}}], StatusArea[#, 0.4958361990697826]& , 
               TagBoxNote -> "0.4958361990697826"], 
              StyleBox["0.4958361990697826`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[0.4958361990697826, {
                GrayLevel[0]}], "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
            RGBColor[0.66, 0.7960000000000002, 1.], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{7.700000000000001, 0.}, {8.700000000000001, 
                  92.65721841013426}, "RoundingRadius" -> 0]}, 
                ImageSizeCache -> {{138.1426701570681, 155.13481675392677`}, {
                 63.08204283326805, 109.98655450738802`}}], 
               StatusArea[#, 92.65721841013426]& , TagBoxNote -> 
               "92.65721841013426"], 
              StyleBox["92.65721841013426`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[92.65721841013426, {
                GrayLevel[0]}], "Tooltip"]& ]}, {}, {
            RGBColor[0.66, 1., 0.796], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{7.700000000000001, 92.65721841013426}, {
                  8.700000000000001, 95.67923199803171}, "RoundingRadius" -> 
                  0]}, ImageSizeCache -> {{138.1426701570681, 
                 155.13481675392677`}, {61.568560481594105`, 
                 63.58204283326805}}], StatusArea[#, 3.022013587897452]& , 
               TagBoxNote -> "3.022013587897452"], 
              StyleBox["3.022013587897452`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[3.022013587897452, {
                GrayLevel[0]}], "Tooltip"]& ]}, {
            RGBColor[0.7280000000000001, 1., 0.66], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{7.700000000000001, 95.67923199803171}, {
                  8.700000000000001, 124.06056677662683`}, "RoundingRadius" -> 
                  0]}, ImageSizeCache -> {{138.1426701570681, 
                 155.13481675392677`}, {47.35464381478019, 
                 62.068560481594105`}}], StatusArea[#, 28.381334778595114`]& ,
                TagBoxNote -> "28.381334778595114"], 
              StyleBox["28.381334778595114`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[28.381334778595114`, {
                GrayLevel[0]}], "Tooltip"]& ]}, {
            RGBColor[0.932, 1., 0.66], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{7.700000000000001, 124.06056677662683`}, {
                  8.700000000000001, 161.70287520691673`}, "RoundingRadius" -> 
                  0]}, ImageSizeCache -> {{138.1426701570681, 
                 155.13481675392677`}, {28.502653964811188`, 
                 47.85464381478019}}], StatusArea[#, 37.64230843028991]& , 
               TagBoxNote -> "37.64230843028991"], 
              StyleBox["37.64230843028991`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[37.64230843028991, {
                GrayLevel[0]}], "Tooltip"]& ]}, {
            RGBColor[1., 0.864, 0.66], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{7.700000000000001, 161.70287520691673`}, {
                  8.700000000000001, 190.0785368394009}, "RoundingRadius" -> 
                  0]}, ImageSizeCache -> {{138.1426701570681, 
                 155.13481675392677`}, {14.291578518351727`, 
                 29.002653964811188`}}], StatusArea[#, 28.375661632484153`]& ,
                TagBoxNote -> "28.375661632484153"], 
              StyleBox["28.375661632484153`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[28.375661632484153`, {
                GrayLevel[0]}], "Tooltip"]& ]}, {
            RGBColor[1., 0.66, 0.66], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{7.700000000000001, 190.0785368394009}, {
                  8.700000000000001, 190.56383295673854`}, "RoundingRadius" -> 
                  0]}, ImageSizeCache -> {{138.1426701570681, 
                 155.13481675392677`}, {14.048532917277043`, 
                 14.791578518351727`}}], StatusArea[#, 0.4852961173376322]& , 
               TagBoxNote -> "0.4852961173376322"], 
              StyleBox["0.4852961173376322`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[0.4852961173376322, {
                GrayLevel[0]}], "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
            RGBColor[0.66, 0.7960000000000002, 1.], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{8.9, 0.}, {9.9, 105.6683100792311}, 
                  "RoundingRadius" -> 0]}, 
                ImageSizeCache -> {{157.93324607329845`, 
                 174.92539267015712`}, {56.56583863880226, 
                 109.98655450738802`}}], StatusArea[#, 105.6683100792311]& , 
               TagBoxNote -> "105.6683100792311"], 
              StyleBox["105.6683100792311`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[105.6683100792311, {
                GrayLevel[0]}], "Tooltip"]& ]}, {}, {
            RGBColor[0.66, 1., 0.796], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{8.9, 105.6683100792311}, {9.9, 
                  108.69032366712855`}, "RoundingRadius" -> 0]}, 
                ImageSizeCache -> {{157.93324607329845`, 
                 174.92539267015712`}, {55.05235628712832, 
                 57.06583863880226}}], StatusArea[#, 3.022013587897452]& , 
               TagBoxNote -> "3.022013587897452"], 
              StyleBox["3.022013587897452`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[3.022013587897452, {
                GrayLevel[0]}], "Tooltip"]& ]}, {
            RGBColor[0.7280000000000001, 1., 0.66], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{8.9, 108.69032366712855`}, {9.9, 
                  139.05556774404707`}, "RoundingRadius" -> 0]}, 
                ImageSizeCache -> {{157.93324607329845`, 
                 174.92539267015712`}, {39.844859802421084`, 
                 55.55235628712832}}], StatusArea[#, 30.365244076918504`]& , 
               TagBoxNote -> "30.365244076918504"], 
              StyleBox["30.365244076918504`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[30.365244076918504`, {
                GrayLevel[0]}], "Tooltip"]& ]}, {
            RGBColor[0.932, 1., 0.66], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{8.9, 139.05556774404707`}, {9.9, 
                  181.90549655610488`}, "RoundingRadius" -> 0]}, 
                ImageSizeCache -> {{157.93324607329845`, 
                 174.92539267015712`}, {18.38479380958242, 
                 40.344859802421084`}}], StatusArea[#, 42.84992881205781]& , 
               TagBoxNote -> "42.84992881205781"], 
              StyleBox["42.84992881205781`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[42.84992881205781, {
                GrayLevel[0]}], "Tooltip"]& ]}, {
            RGBColor[1., 0.864, 0.66], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{8.9, 181.90549655610488`}, {9.9, 
                  212.09674176048316`}, "RoundingRadius" -> 0]}, 
                ImageSizeCache -> {{157.93324607329845`, 
                 174.92539267015712`}, {3.264439296656988, 
                 18.88479380958242}}], StatusArea[#, 30.191245204378276`]& , 
               TagBoxNote -> "30.191245204378276"], 
              StyleBox["30.191245204378276`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[30.191245204378276`, {
                GrayLevel[0]}], "Tooltip"]& ]}, {
            RGBColor[1., 0.66, 0.66], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{8.9, 212.09674176048316`}, {9.9, 
                  212.57962387107742`}, "RoundingRadius" -> 0]}, 
                ImageSizeCache -> {{157.93324607329845`, 
                 174.92539267015712`}, {3.022602676447761, 
                 3.764439296656988}}], StatusArea[#, 0.482882110594248]& , 
               TagBoxNote -> "0.482882110594248"], 
              StyleBox["0.482882110594248`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[0.482882110594248, {
                GrayLevel[0]}], "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
            RGBColor[0.66, 0.7960000000000002, 1.], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{10.1, 0.}, {11.1, 118.67940174832795`}, 
                  "RoundingRadius" -> 0]}, 
                ImageSizeCache -> {{177.7238219895288, 194.71596858638748`}, {
                 50.04963444433647, 109.98655450738802`}}], 
               StatusArea[#, 118.67940174832795`]& , TagBoxNote -> 
               "118.67940174832795"], 
              StyleBox["118.67940174832795`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[118.67940174832795`, {
                GrayLevel[0]}], "Tooltip"]& ]}, {}, {
            RGBColor[0.66, 1., 0.796], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{10.1, 118.67940174832795`}, {11.1, 
                  121.7014153362254}, "RoundingRadius" -> 0]}, 
                ImageSizeCache -> {{177.7238219895288, 194.71596858638748`}, {
                 48.536152092662526`, 50.54963444433647}}], 
               StatusArea[#, 3.022013587897452]& , TagBoxNote -> 
               "3.022013587897452"], 
              StyleBox["3.022013587897452`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[3.022013587897452, {
                GrayLevel[0]}], "Tooltip"]& ]}, {
            RGBColor[0.7280000000000001, 1., 0.66], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 RectangleBox[{10.1, 121.7014153362254}, {11.1, 
                  154.0505687114673}, "RoundingRadius" -> 0]}, 
                ImageSizeCache -> {{177.7238219895288, 194.71596858638748`}, {
                 32.33507579006198, 49.036152092662526`}}], 
               StatusArea[#, 32.34915337524189]& , TagBoxNote -> 
               "32.34915337524189"], 
              StyleBox["32.34915337524189`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[32.34915337524189, {
                GrayLevel[0]}], "Tooltip"]& ]}, {
            RGBColor[0.932, 1., 0.66], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{10.1, 154.0505687114673}, {11.1, 
                  202.108117905293}, "RoundingRadius" -> 0]}, 
                ImageSizeCache -> {{177.7238219895288, 194.71596858638748`}, {
                 8.266933654353664, 32.83507579006198}}], 
               StatusArea[#, 48.057549193825714`]& , TagBoxNote -> 
               "48.057549193825714"], 
              StyleBox["48.057549193825714`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[48.057549193825714`, {
                GrayLevel[0]}], "Tooltip"]& ]}, {
            RGBColor[1., 0.864, 0.66], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{10.1, 202.108117905293}, {11.1, 
                  234.1149466815654}, "RoundingRadius" -> 0]}, 
                ImageSizeCache -> {{177.7238219895288, 
                 194.71596858638748`}, {-7.762699925037751, 
                 8.766933654353664}}], StatusArea[#, 32.0068287762724]& , 
               TagBoxNote -> "32.0068287762724"], 
              StyleBox["32.0068287762724`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[32.0068287762724, {
                GrayLevel[0]}], "Tooltip"]& ]}, {
            RGBColor[1., 0.66, 0.66], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{10.1, 234.1149466815654}, {11.1, 
                  234.5972759094871}, "RoundingRadius" -> 0]}, 
                ImageSizeCache -> {{177.7238219895288, 
                 194.71596858638748`}, {-8.004259651003082, \
-7.262699925037751}}], StatusArea[#, 0.48232922792168487`]& , TagBoxNote -> 
               "0.48232922792168487"], 
              StyleBox["0.48232922792168487`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[0.48232922792168487`, {
                GrayLevel[0]}], "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
            RGBColor[0.66, 0.7960000000000002, 1.], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{11.299999999999999`, 0.}, {12.299999999999999`,
                   131.6904934174248}, "RoundingRadius" -> 0]}, 
                ImageSizeCache -> {{197.5143979057592, 214.50654450261783`}, {
                 43.533430249870676`, 109.98655450738802`}}], 
               StatusArea[#, 131.6904934174248]& , TagBoxNote -> 
               "131.6904934174248"], 
              StyleBox["131.6904934174248`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[131.6904934174248, {
                GrayLevel[0]}], "Tooltip"]& ]}, {}, {
            RGBColor[0.66, 1., 0.796], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{11.299999999999999`, 131.6904934174248}, {
                  12.299999999999999`, 134.71250700532224`}, "RoundingRadius" -> 
                  0]}, ImageSizeCache -> {{197.5143979057592, 
                 214.50654450261783`}, {42.01994789819673, 
                 44.033430249870676`}}], StatusArea[#, 3.022013587897452]& , 
               TagBoxNote -> "3.022013587897452"], 
              StyleBox["3.022013587897452`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[3.022013587897452, {
                GrayLevel[0]}], "Tooltip"]& ]}, {
            RGBColor[0.7280000000000001, 1., 0.66], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{11.299999999999999`, 134.71250700532224`}, {
                  12.299999999999999`, 169.04556967888752`}, "RoundingRadius" -> 
                  0]}, ImageSizeCache -> {{197.5143979057592, 
                 214.50654450261783`}, {24.82529177770286, 
                 42.51994789819673}}], StatusArea[#, 34.33306267356528]& , 
               TagBoxNote -> "34.33306267356528"], 
              StyleBox["34.33306267356528`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[34.33306267356528, {
                GrayLevel[0]}], "Tooltip"]& ]}, {
            RGBColor[0.932, 1., 0.66], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{11.299999999999999`, 169.04556967888752`}, {
                  12.299999999999999`, 222.31073925448112`}, "RoundingRadius" -> 
                  0]}, ImageSizeCache -> {{197.5143979057592, 
                 214.50654450261783`}, {-1.8509265008750901`, 
                 25.32529177770286}}], StatusArea[#, 53.26516957559362]& , 
               TagBoxNote -> "53.26516957559362"], 
              StyleBox["53.26516957559362`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[53.26516957559362, {
                GrayLevel[0]}], "Tooltip"]& ]}, {
            RGBColor[1., 0.864, 0.66], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{11.299999999999999`, 222.31073925448112`}, {
                  12.299999999999999`, 256.1331516026477}, "RoundingRadius" -> 
                  0]}, ImageSizeCache -> {{197.5143979057592, 
                 214.50654450261783`}, {-18.78983914673249, \
-1.3509265008750901`}}], StatusArea[#, 33.82241234816652]& , TagBoxNote -> 
               "33.82241234816652"], 
              StyleBox["33.82241234816652`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[33.82241234816652, {
                GrayLevel[0]}], "Tooltip"]& ]}, {
            RGBColor[1., 0.66, 0.66], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{11.299999999999999`, 256.1331516026477}, {
                  12.299999999999999`, 256.6153542032306}, "RoundingRadius" -> 
                  0]}, ImageSizeCache -> {{197.5143979057592, 
                 214.50654450261783`}, {-19.031335455298503`, \
-18.28983914673249}}], StatusArea[#, 0.4822026005829425]& , TagBoxNote -> 
               "0.4822026005829425"], 
              StyleBox["0.4822026005829425`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[0.4822026005829425, {
                GrayLevel[0]}], "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
            RGBColor[0.66, 0.7960000000000002, 1.], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{12.499999999999998`, 0.}, {13.499999999999998`,
                   144.70158508652162`}, "RoundingRadius" -> 0]}, 
                ImageSizeCache -> {{217.30497382198956`, 
                 234.29712041884818`}, {37.017226055404905`, 
                 109.98655450738802`}}], StatusArea[#, 144.70158508652162`]& ,
                TagBoxNote -> "144.70158508652162"], 
              StyleBox["144.70158508652162`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[144.70158508652162`, {
                GrayLevel[0]}], "Tooltip"]& ]}, {}, {
            RGBColor[0.66, 1., 0.796], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{12.499999999999998`, 144.70158508652162`}, {
                  13.499999999999998`, 147.72359867441907`}, "RoundingRadius" -> 
                  0]}, ImageSizeCache -> {{217.30497382198956`, 
                 234.29712041884818`}, {35.50374370373096, 
                 37.517226055404905`}}], StatusArea[#, 3.022013587897452]& , 
               TagBoxNote -> "3.022013587897452"], 
              StyleBox["3.022013587897452`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[3.022013587897452, {
                GrayLevel[0]}], "Tooltip"]& ]}, {
            RGBColor[0.7280000000000001, 1., 0.66], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{12.499999999999998`, 147.72359867441907`}, {
                  13.499999999999998`, 184.04057064630774`}, "RoundingRadius" -> 
                  0]}, ImageSizeCache -> {{217.30497382198956`, 
                 234.29712041884818`}, {17.315507765343753`, 
                 36.00374370373096}}], StatusArea[#, 36.31697197188867]& , 
               TagBoxNote -> "36.31697197188867"], 
              StyleBox["36.31697197188867`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[36.31697197188867, {
                GrayLevel[0]}], "Tooltip"]& ]}, {
            RGBColor[0.932, 1., 0.66], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{12.499999999999998`, 184.04057064630774`}, {
                  13.499999999999998`, 242.51336060366927`}, "RoundingRadius" -> 
                  0]}, ImageSizeCache -> {{217.30497382198956`, 
                 234.29712041884818`}, {-11.968786656103859`, 
                 17.815507765343753`}}], StatusArea[#, 58.47278995736152]& , 
               TagBoxNote -> "58.47278995736152"], 
              StyleBox["58.47278995736152`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[58.47278995736152, {
                GrayLevel[0]}], "Tooltip"]& ]}, {
            RGBColor[1., 0.864, 0.66], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{12.499999999999998`, 242.51336060366927`}, {
                  13.499999999999998`, 278.15135652372993`}, "RoundingRadius" -> 
                  0]}, ImageSizeCache -> {{217.30497382198956`, 
                 234.29712041884818`}, {-29.81697836842723, \
-11.468786656103859`}}], StatusArea[#, 35.637995920060646`]& , TagBoxNote -> 
               "35.637995920060646"], 
              StyleBox["35.637995920060646`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[35.637995920060646`, {
                GrayLevel[0]}], "Tooltip"]& ]}, {
            RGBColor[1., 0.66, 0.66], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{12.499999999999998`, 278.15135652372993`}, {
                  13.499999999999998`, 278.6335301227114}, "RoundingRadius" -> 
                  0]}, ImageSizeCache -> {{217.30497382198956`, 
                 234.29712041884818`}, {-30.05846015243513, \
-29.31697836842723}}], StatusArea[#, 0.48217359898149503`]& , TagBoxNote -> 
               "0.48217359898149503"], 
              StyleBox["0.48217359898149503`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[0.48217359898149503`, {
                GrayLevel[0]}], "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
            RGBColor[0.66, 0.7960000000000002, 1.], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{13.699999999999998`, 0.}, {14.699999999999998`,
                   157.71267675561845`}, "RoundingRadius" -> 0]}, 
                ImageSizeCache -> {{237.09554973821992`, 
                 254.08769633507853`}, {30.50102186093912, 
                 109.98655450738802`}}], StatusArea[#, 157.71267675561845`]& ,
                TagBoxNote -> "157.71267675561845"], 
              StyleBox["157.71267675561845`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[157.71267675561845`, {
                GrayLevel[0]}], "Tooltip"]& ]}, {}, {
            RGBColor[0.66, 1., 0.796], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{13.699999999999998`, 157.71267675561845`}, {
                  14.699999999999998`, 160.7346903435159}, "RoundingRadius" -> 
                  0]}, 
                ImageSizeCache -> {{237.09554973821992`, 
                 254.08769633507853`}, {28.987539509265176`, 
                 31.00102186093912}}], StatusArea[#, 3.022013587897452]& , 
               TagBoxNote -> "3.022013587897452"], 
              StyleBox["3.022013587897452`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[3.022013587897452, {
                GrayLevel[0]}], "Tooltip"]& ]}, {
            RGBColor[0.7280000000000001, 1., 0.66], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{13.699999999999998`, 160.7346903435159}, {
                  14.699999999999998`, 199.03557161372794`}, "RoundingRadius" -> 
                  0]}, ImageSizeCache -> {{237.09554973821992`, 
                 254.08769633507853`}, {9.805723752984662, 
                 29.487539509265176`}}], StatusArea[#, 38.30088127021206]& , 
               TagBoxNote -> "38.30088127021206"], 
              StyleBox["38.30088127021206`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[38.30088127021206, {
                GrayLevel[0]}], "Tooltip"]& ]}, {
            RGBColor[0.932, 1., 0.66], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 RectangleBox[{13.699999999999998`, 199.03557161372794`}, {
                  14.699999999999998`, 262.71598195285736`}, "RoundingRadius" -> 
                  0]}, ImageSizeCache -> {{237.09554973821992`, 
                 254.08769633507853`}, {-22.086646811332585`, 
                 10.305723752984662`}}], StatusArea[#, 63.68041033912942]& , 
               TagBoxNote -> "63.68041033912942"], 
              StyleBox["63.68041033912942`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[63.68041033912942, {
                GrayLevel[0]}], "Tooltip"]& ]}, {
            RGBColor[1., 0.864, 0.66], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{13.699999999999998`, 262.71598195285736`}, {
                  14.699999999999998`, 300.16956144481213`}, "RoundingRadius" -> 
                  0]}, ImageSizeCache -> {{237.09554973821992`, 
                 254.08769633507853`}, {-40.84411759012194, \
-21.586646811332585`}}], StatusArea[#, 37.45357949195477]& , TagBoxNote -> 
               "37.45357949195477"], 
              StyleBox["37.45357949195477`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[37.45357949195477, {
                GrayLevel[0]}], "Tooltip"]& ]}, {
            RGBColor[1., 0.66, 0.66], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{13.699999999999998`, 300.16956144481213`}, {
                  14.699999999999998`, 300.65172840152434`}, "RoundingRadius" -> 
                  0]}, ImageSizeCache -> {{237.09554973821992`, 
                 254.08769633507853`}, {-41.085596047554006`, \
-40.34411759012194}}], StatusArea[#, 0.48216695671218024`]& , TagBoxNote -> 
               "0.48216695671218024"], 
              StyleBox["0.48216695671218024`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[0.48216695671218024`, {
                GrayLevel[0]}], "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
            RGBColor[0.66, 0.7960000000000002, 1.], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{14.899999999999997`, 0.}, {15.899999999999997`,
                   170.72376842471527`}, "RoundingRadius" -> 0]}, 
                ImageSizeCache -> {{256.88612565445027`, 273.8782722513089}, {
                 23.984817666473333`, 109.98655450738802`}}], 
               StatusArea[#, 170.72376842471527`]& , TagBoxNote -> 
               "170.72376842471527"], 
              StyleBox["170.72376842471527`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[170.72376842471527`, {
                GrayLevel[0]}], "Tooltip"]& ]}, {}, {
            RGBColor[0.66, 1., 0.796], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{14.899999999999997`, 170.72376842471527`}, {
                  15.899999999999997`, 173.74578201261272`}, "RoundingRadius" -> 
                  0]}, ImageSizeCache -> {{256.88612565445027`, 
                 273.8782722513089}, {22.47133531479939, 
                 24.484817666473333`}}], StatusArea[#, 3.022013587897452]& , 
               TagBoxNote -> "3.022013587897452"], 
              StyleBox["3.022013587897452`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[3.022013587897452, {
                GrayLevel[0]}], "Tooltip"]& ]}, {
            RGBColor[0.7280000000000001, 1., 0.66], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{14.899999999999997`, 173.74578201261272`}, {
                  15.899999999999997`, 214.03057258114816`}, "RoundingRadius" -> 
                  0]}, ImageSizeCache -> {{256.88612565445027`, 
                 273.8782722513089}, {2.295939740625556, 22.97133531479939}}],
                StatusArea[#, 40.28479056853545]& , TagBoxNote -> 
               "40.28479056853545"], 
              StyleBox["40.28479056853545`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[40.28479056853545, {
                GrayLevel[0]}], "Tooltip"]& ]}, {
            RGBColor[0.932, 1., 0.66], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{14.899999999999997`, 214.03057258114816`}, {
                  15.899999999999997`, 282.9186033020455}, "RoundingRadius" -> 
                  0]}, ImageSizeCache -> {{256.88612565445027`, 
                 273.8782722513089}, {-32.20450696656134, 
                 2.795939740625556}}], StatusArea[#, 68.88803072089733]& , 
               TagBoxNote -> "68.88803072089733"], 
              StyleBox["68.88803072089733`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[68.88803072089733, {
                GrayLevel[0]}], "Tooltip"]& ]}, {
            RGBColor[1., 0.864, 0.66], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{14.899999999999997`, 282.9186033020455}, {
                  15.899999999999997`, 322.1877663658944}, "RoundingRadius" -> 
                  0]}, ImageSizeCache -> {{256.88612565445027`, 
                 273.8782722513089}, {-51.87125681181668, \
-31.70450696656134}}], StatusArea[#, 39.26916306384889]& , TagBoxNote -> 
               "39.26916306384889"], 
              StyleBox["39.26916306384889`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[39.26916306384889, {
                GrayLevel[0]}], "Tooltip"]& ]}, {
            RGBColor[1., 0.66, 0.66], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{14.899999999999997`, 322.1877663658944}, {
                  15.899999999999997`, 322.66993180132016`}, "RoundingRadius" -> 
                  0]}, ImageSizeCache -> {{256.88612565445027`, 
                 273.8782722513089}, {-52.11273450735935, \
-51.37125681181668}}], StatusArea[#, 0.4821654354257876]& , TagBoxNote -> 
               "0.4821654354257876"], 
              StyleBox["0.4821654354257876`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[0.4821654354257876, {
                GrayLevel[0]}], "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
            RGBColor[0.66, 0.7960000000000002, 1.], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{16.099999999999998`, 0.}, {17.099999999999998`,
                   183.7348600938121}, "RoundingRadius" -> 0]}, 
                ImageSizeCache -> {{276.6767015706806, 293.6688481675393}, {
                 17.46861347200756, 109.98655450738802`}}], 
               StatusArea[#, 183.7348600938121]& , TagBoxNote -> 
               "183.7348600938121"], 
              StyleBox["183.7348600938121`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[183.7348600938121, {
                GrayLevel[0]}], "Tooltip"]& ]}, {}, {
            RGBColor[0.66, 1., 0.796], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{16.099999999999998`, 183.7348600938121}, {
                  17.099999999999998`, 186.75687368170955`}, "RoundingRadius" -> 
                  0]}, ImageSizeCache -> {{276.6767015706806, 
                 293.6688481675393}, {15.955131120333618`, 
                 17.96861347200756}}], StatusArea[#, 3.022013587897452]& , 
               TagBoxNote -> "3.022013587897452"], 
              StyleBox["3.022013587897452`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[3.022013587897452, {
                GrayLevel[0]}], "Tooltip"]& ]}, {
            RGBColor[0.7280000000000001, 1., 0.66], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{16.099999999999998`, 186.75687368170955`}, {
                  17.099999999999998`, 229.0255735485684}, "RoundingRadius" -> 
                  0]}, ImageSizeCache -> {{276.6767015706806, 
                 293.6688481675393}, {-5.213844271733549, 
                 16.45513112033362}}], StatusArea[#, 42.26869986685884]& , 
               TagBoxNote -> "42.26869986685884"], 
              StyleBox["42.26869986685884`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[42.26869986685884, {
                GrayLevel[0]}], "Tooltip"]& ]}, {
            RGBColor[0.932, 1., 0.66], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{16.099999999999998`, 229.0255735485684}, {
                  17.099999999999998`, 303.12122465123366`}, "RoundingRadius" -> 
                  0]}, ImageSizeCache -> {{276.6767015706806, 
                 293.6688481675393}, {-42.32236712179012, \
-4.713844271733549}}], StatusArea[#, 74.09565110266524]& , TagBoxNote -> 
               "74.09565110266524"], 
              StyleBox["74.09565110266524`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[74.09565110266524, {
                GrayLevel[0]}], "Tooltip"]& ]}, {
            RGBColor[1., 0.864, 0.66], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{16.099999999999998`, 303.12122465123366`}, {
                  17.099999999999998`, 344.2059712869767}, "RoundingRadius" -> 
                  0]}, ImageSizeCache -> {{276.6767015706806, 
                 
                 293.6688481675393}, {-62.898396033511446`, \
-41.82236712179012}}], StatusArea[#, 41.084746635743016`]& , TagBoxNote -> 
               "41.084746635743016"], 
              StyleBox["41.084746635743016`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[41.084746635743016`, {
                GrayLevel[0]}], "Tooltip"]& ]}, {
            RGBColor[1., 0.66, 0.66], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{16.099999999999998`, 344.2059712869767}, {
                  17.099999999999998`, 344.68813637398057`}, "RoundingRadius" -> 
                  0]}, ImageSizeCache -> {{276.6767015706806, 
                 293.6688481675393}, {-63.13987355455775, \
-62.398396033511446`}}], StatusArea[#, 0.4821650870038585]& , TagBoxNote -> 
               "0.4821650870038585"], 
              StyleBox["0.4821650870038585`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[0.4821650870038585, {
                GrayLevel[0]}], "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
            RGBColor[0.66, 0.7960000000000002, 1.], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 RectangleBox[{17.299999999999997`, 0.}, {18.299999999999997`,
                   196.74595176290893`}, "RoundingRadius" -> 0]}, 
                ImageSizeCache -> {{296.467277486911, 313.45942408376965`}, {
                 10.952409277541776`, 109.98655450738802`}}], 
               StatusArea[#, 196.74595176290893`]& , TagBoxNote -> 
               "196.74595176290893"], 
              StyleBox["196.74595176290893`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[196.74595176290893`, {
                GrayLevel[0]}], "Tooltip"]& ]}, {}, {
            RGBColor[0.66, 1., 0.796], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{17.299999999999997`, 196.74595176290893`}, {
                  18.299999999999997`, 199.76796535080638`}, "RoundingRadius" -> 
                  0]}, ImageSizeCache -> {{296.467277486911, 
                 313.45942408376965`}, {9.438926925867833, 
                 11.452409277541776`}}], StatusArea[#, 3.022013587897452]& , 
               TagBoxNote -> "3.022013587897452"], 
              StyleBox["3.022013587897452`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[3.022013587897452, {
                GrayLevel[0]}], "Tooltip"]& ]}, {
            RGBColor[0.7280000000000001, 1., 0.66], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{17.299999999999997`, 199.76796535080638`}, {
                  18.299999999999997`, 244.0205745159886}, "RoundingRadius" -> 
                  0]}, ImageSizeCache -> {{296.467277486911, 
                 313.45942408376965`}, {-12.723628284092655`, 
                 9.938926925867833}}], StatusArea[#, 44.25260916518223]& , 
               TagBoxNote -> "44.25260916518223"], 
              StyleBox["44.25260916518223`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[44.25260916518223, {
                GrayLevel[0]}], "Tooltip"]& ]}, {
            RGBColor[0.932, 1., 0.66], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{17.299999999999997`, 244.0205745159886}, {
                  18.299999999999997`, 323.3238460004218}, "RoundingRadius" -> 
                  0]}, ImageSizeCache -> {{296.467277486911, 
                 313.45942408376965`}, {-52.44022727701888, \
-12.223628284092655`}}], StatusArea[#, 79.30327148443315]& , TagBoxNote -> 
               "79.30327148443315"], 
              StyleBox["79.30327148443315`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[79.30327148443315, {
                GrayLevel[0]}], "Tooltip"]& ]}, {
            RGBColor[1., 0.864, 0.66], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{17.299999999999997`, 323.3238460004218}, {
                  18.299999999999997`, 366.2241762080589}, "RoundingRadius" -> 
                  0]}, ImageSizeCache -> {{296.467277486911, 
                 313.45942408376965`}, {-73.92553525520616, \
-51.94022727701888}}], StatusArea[#, 42.90033020763714]& , TagBoxNote -> 
               "42.90033020763714"], 
              StyleBox["42.90033020763714`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[42.90033020763714, {
                GrayLevel[0]}], "Tooltip"]& ]}, {
            RGBColor[1., 0.66, 0.66], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{17.299999999999997`, 366.2241762080589}, {
                  18.299999999999997`, 366.7063412152633}, "RoundingRadius" -> 
                  0]}, ImageSizeCache -> {{296.467277486911, 
                 313.45942408376965`}, {-74.16701273628736, \
-73.42553525520616}}], StatusArea[#, 0.48216500720439304`]& , TagBoxNote -> 
               "0.48216500720439304"], 
              StyleBox["0.48216500720439304`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[0.48216500720439304`, {
                GrayLevel[0]}], "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
            RGBColor[0.66, 0.7960000000000002, 1.], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{18.499999999999996`, 0.}, {19.499999999999996`,
                   209.75704343200576`}, "RoundingRadius" -> 0]}, 
                ImageSizeCache -> {{316.2578534031414, 333.25}, {
                 4.43620508307599, 109.98655450738802`}}], 
               StatusArea[#, 209.75704343200576`]& , TagBoxNote -> 
               "209.75704343200576"], 
              StyleBox["209.75704343200576`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[209.75704343200576`, {
                GrayLevel[0]}], "Tooltip"]& ]}, {}, {
            RGBColor[0.66, 1., 0.796], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{18.499999999999996`, 209.75704343200576`}, {
                  19.499999999999996`, 212.7790570199032}, "RoundingRadius" -> 
                  0]}, ImageSizeCache -> {{316.2578534031414, 333.25}, {
                 2.9227227314020467`, 4.93620508307599}}], 
               StatusArea[#, 3.022013587897452]& , TagBoxNote -> 
               "3.022013587897452"], 
              StyleBox["3.022013587897452`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[3.022013587897452, {
                GrayLevel[0]}], "Tooltip"]& ]}, {
            RGBColor[0.7280000000000001, 1., 0.66], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{18.499999999999996`, 212.7790570199032}, {
                  19.499999999999996`, 259.01557548340884`}, "RoundingRadius" -> 
                  0]}, ImageSizeCache -> {{316.2578534031414, 
                 333.25}, {-20.23341229645176, 3.4227227314020467`}}], 
               StatusArea[#, 46.23651846350562]& , TagBoxNote -> 
               "46.23651846350562"], 
              StyleBox["46.23651846350562`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[46.23651846350562, {
                GrayLevel[0]}], "Tooltip"]& ]}, {
            RGBColor[0.932, 1., 0.66], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{18.499999999999996`, 259.01557548340884`}, {
                  19.499999999999996`, 343.5264673496099}, "RoundingRadius" -> 
                  0]}, ImageSizeCache -> {{316.2578534031414, 
                 333.25}, {-62.55808743224763, -19.73341229645176}}], 
               StatusArea[#, 84.51089186620106]& , TagBoxNote -> 
               "84.51089186620106"], 
              StyleBox["84.51089186620106`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[84.51089186620106, {
                GrayLevel[0]}], "Tooltip"]& ]}, {
            RGBColor[1., 0.864, 0.66], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{18.499999999999996`, 343.5264673496099}, {
                  19.499999999999996`, 388.24238112914117`}, "RoundingRadius" -> 
                  0]}, ImageSizeCache -> {{316.2578534031414, 
                 333.25}, {-84.9526744769009, -62.05808743224763}}], 
               StatusArea[#, 44.71591377953126]& , TagBoxNote -> 
               "44.71591377953126"], 
              StyleBox["44.71591377953126`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[44.71591377953126, {
                GrayLevel[0]}], "Tooltip"]& ]}, {
            RGBColor[1., 0.66, 0.66], 
            EdgeForm[{
              Opacity[0.7], 
              Thickness[Small]}], 
            TagBox[
             TooltipBox[
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{18.499999999999996`, 388.24238112914117`}, {
                  19.499999999999996`, 388.724546118069}, "RoundingRadius" -> 
                  0]}, ImageSizeCache -> {{316.2578534031414, 
                 333.25}, {-85.19415194882883, -84.4526744769009}}], 
               StatusArea[#, 0.4821649889278321]& , TagBoxNote -> 
               "0.4821649889278321"], 
              StyleBox["0.4821649889278321`", {
                GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
              Style[0.4821649889278321, {
                GrayLevel[0]}], "Tooltip"]& ]}}}, {}, {}}}, {}, {}}, {}, {}, 
      GraphicsGroupBox[{
        GrayLevel[0], 
        StyleBox[
         StyleBox[{{
            Thickness[Tiny], 
            LineBox[{{0.4, 0.}, {19.499999999999993`, 0.}}], 
            InsetBox["\"Day\"", 
             Offset[{10., 0.}, {19.499999999999993`, 0.}], {-1, 0}, 
             Automatic, {1, 0}]}, {
            Thickness[Tiny], 
            LineBox[{{0.5, 0.}, 
              Offset[{-1.102182119232618*^-15, -6.}, {0.5, 0.}]}], 
            LineBox[{{19.499999999999993`, 0.}, 
              
              Offset[{-1.102182119232618*^-15, -6.}, {19.499999999999993`, 
               0.}]}], {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {
              LineBox[{{1.5, 0.}, 
                Offset[{-1.102182119232618*^-15, -6.}, {1.5, 0.}]}], 
              LineBox[{{1.7, 0.}, 
                Offset[{-1.102182119232618*^-15, -6.}, {1.7, 0.}]}], 
              LineBox[{{2.7, 0.}, 
                Offset[{-1.102182119232618*^-15, -6.}, {2.7, 0.}]}], 
              LineBox[{{2.9000000000000004`, 0.}, 
                
                Offset[{-1.102182119232618*^-15, -6.}, {2.9000000000000004`, 
                 0.}]}], 
              LineBox[{{3.9000000000000004`, 0.}, 
                
                Offset[{-1.102182119232618*^-15, -6.}, {3.9000000000000004`, 
                 0.}]}], 
              LineBox[{{4.1000000000000005`, 0.}, 
                
                Offset[{-1.102182119232618*^-15, -6.}, {4.1000000000000005`, 
                 0.}]}], 
              LineBox[{{5.1000000000000005`, 0.}, 
                
                Offset[{-1.102182119232618*^-15, -6.}, {5.1000000000000005`, 
                 0.}]}], 
              LineBox[{{5.300000000000001, 0.}, 
                
                Offset[{-1.102182119232618*^-15, -6.}, {5.300000000000001, 
                 0.}]}], 
              LineBox[{{6.300000000000001, 0.}, 
                Offset[{-1.102182119232618*^-15, -6.}, {6.300000000000001, 
                 0.}]}], 
              LineBox[{{6.500000000000001, 0.}, 
                
                Offset[{-1.102182119232618*^-15, -6.}, {6.500000000000001, 
                 0.}]}], 
              LineBox[{{7.500000000000001, 0.}, 
                
                Offset[{-1.102182119232618*^-15, -6.}, {7.500000000000001, 
                 0.}]}], 
              LineBox[{{7.700000000000001, 0.}, 
                
                Offset[{-1.102182119232618*^-15, -6.}, {7.700000000000001, 
                 0.}]}], 
              LineBox[{{8.700000000000001, 0.}, 
                
                Offset[{-1.102182119232618*^-15, -6.}, {8.700000000000001, 
                 0.}]}], 
              LineBox[{{8.9, 0.}, 
                Offset[{-1.102182119232618*^-15, -6.}, {8.9, 0.}]}], 
              LineBox[{{9.9, 0.}, 
                Offset[{-1.102182119232618*^-15, -6.}, {9.9, 0.}]}], 
              LineBox[{{10.1, 0.}, 
                Offset[{-1.102182119232618*^-15, -6.}, {10.1, 0.}]}], 
              LineBox[{{11.1, 0.}, 
                Offset[{-1.102182119232618*^-15, -6.}, {11.1, 0.}]}], 
              LineBox[{{11.299999999999999`, 0.}, 
                
                Offset[{-1.102182119232618*^-15, -6.}, {11.299999999999999`, 
                 0.}]}], 
              LineBox[{{12.299999999999999`, 0.}, 
                
                Offset[{-1.102182119232618*^-15, -6.}, {12.299999999999999`, 
                 0.}]}], 
              LineBox[{{12.499999999999998`, 0.}, 
                
                Offset[{-1.102182119232618*^-15, -6.}, {12.499999999999998`, 
                 0.}]}], 
              LineBox[{{13.499999999999998`, 0.}, 
                
                Offset[{-1.102182119232618*^-15, -6.}, {13.499999999999998`, 
                 0.}]}], 
              LineBox[{{13.699999999999998`, 0.}, 
                
                Offset[{-1.102182119232618*^-15, -6.}, {13.699999999999998`, 
                 0.}]}], 
              LineBox[{{14.699999999999998`, 0.}, 
                
                Offset[{-1.102182119232618*^-15, -6.}, {14.699999999999998`, 
                 0.}]}], 
              LineBox[{{14.899999999999997`, 0.}, 
                
                Offset[{-1.102182119232618*^-15, -6.}, {14.899999999999997`, 
                 0.}]}], 
              LineBox[{{15.899999999999997`, 0.}, 
                
                Offset[{-1.102182119232618*^-15, -6.}, {15.899999999999997`, 
                 0.}]}], 
              LineBox[{{16.099999999999994`, 0.}, 
                
                Offset[{-1.102182119232618*^-15, -6.}, {16.099999999999994`, 
                 0.}]}], 
              LineBox[{{17.099999999999994`, 0.}, 
                
                Offset[{-1.102182119232618*^-15, -6.}, {17.099999999999994`, 
                 0.}]}], 
              LineBox[{{17.299999999999994`, 0.}, 
                
                Offset[{-1.102182119232618*^-15, -6.}, {17.299999999999994`, 
                 0.}]}], 
              LineBox[{{18.299999999999994`, 0.}, 
                
                Offset[{-1.102182119232618*^-15, -6.}, {18.299999999999994`, 
                 0.}]}], 
              LineBox[{{18.499999999999993`, 0.}, 
                
                Offset[{-1.102182119232618*^-15, -6.}, {18.499999999999993`, 
                 0.}]}]}}, {}}}, "GraphicsAxes", StripOnInput -> False, 
          Antialiasing -> False], Antialiasing -> False]}]}, {}}, AspectRatio -> 
    NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {False, True}, 
    AxesLabel -> {
      FormBox["\"Day\"", TraditionalForm], 
      FormBox["\"Amount\"", TraditionalForm]}, AxesOrigin -> {0.4, 0}, 
    FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
    GridLines -> {None, None}, PlotLabel -> 
    FormBox["\"Resources of agent n.1\"", TraditionalForm], PlotRangePadding -> 
    Scaled[0.02], Ticks -> {None, Automatic}],
   TemplateBox[{
    "\"Money\"", "\"Labor\"", "\"Water\"", "\"Energy\"", "\"Ferrum\"", 
     "\"Gold\"", "\"Oil\""}, "SwatchLegend", DisplayFunction -> (StyleBox[
      StyleBox[
       PaneBox[
        TagBox[
         GridBox[{{
            TagBox[
             GridBox[{{
                GraphicsBox[{
                  Directive[
                   EdgeForm[{
                    Thickness[Small], 
                    Opacity[0.7]}], 
                   RGBColor[0.66, 0.7960000000000002, 1.]], 
                  RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                 AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> 
                 None, ImagePadding -> 1, 
                 BaselinePosition -> (Scaled[0.1] -> Baseline)], #, 
                GraphicsBox[{
                  Directive[
                   EdgeForm[{
                    Thickness[Small], 
                    Opacity[0.7]}], 
                   RGBColor[0.66, 1., 1.]], 
                  RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                 AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> 
                 None, ImagePadding -> 1, 
                 BaselinePosition -> (Scaled[0.1] -> Baseline)], #2, 
                GraphicsBox[{
                  Directive[
                   EdgeForm[{
                    Thickness[Small], 
                    Opacity[0.7]}], 
                   RGBColor[0.66, 1., 0.796]], 
                  RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                 AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> 
                 None, ImagePadding -> 1, 
                 BaselinePosition -> (Scaled[0.1] -> Baseline)], #3, 
                GraphicsBox[{
                  Directive[
                   EdgeForm[{
                    Thickness[Small], 
                    Opacity[0.7]}], 
                   RGBColor[0.7280000000000001, 1., 0.66]], 
                  RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                 AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> 
                 None, ImagePadding -> 1, 
                 BaselinePosition -> (Scaled[0.1] -> Baseline)], #4, 
                GraphicsBox[{
                  Directive[
                   EdgeForm[{
                    Thickness[Small], 
                    Opacity[0.7]}], 
                   RGBColor[0.932, 1., 0.66]], 
                  RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                 AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> 
                 None, ImagePadding -> 1, 
                 BaselinePosition -> (Scaled[0.1] -> Baseline)], #5, 
                GraphicsBox[{
                  Directive[
                   EdgeForm[{
                    Thickness[Small], 
                    Opacity[0.7]}], 
                   RGBColor[1., 0.864, 0.66]], 
                  RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                 AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> 
                 None, ImagePadding -> 1, 
                 BaselinePosition -> (Scaled[0.1] -> Baseline)], #6, 
                GraphicsBox[{
                  Directive[
                   EdgeForm[{
                    Thickness[Small], 
                    Opacity[0.7]}], 
                   RGBColor[1., 0.66, 0.66]], 
                  RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                 AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> 
                 None, ImagePadding -> 1, 
                 BaselinePosition -> (Scaled[0.1] -> Baseline)], #7}}, 
              GridBoxAlignment -> {
               "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
              AutoDelete -> False, 
              GridBoxDividers -> {
               "Columns" -> {{False}}, "Rows" -> {{False}}}, 
              GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, 
              GridBoxSpacings -> {"Columns" -> {{0.5, 0.5}}}], "Grid"]}}, 
          GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
          AutoDelete -> False, 
          GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{None}}}, 
          GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, 
          GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{1}}}], "Grid"], 
        Alignment -> Left, AppearanceElements -> None, 
        ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], 
       LineIndent -> 0, StripOnInput -> False], {FontFamily -> "Times"}, 
      Background -> Automatic, StripOnInput -> False]& ), Editable -> True, 
    InterpretationFunction :> (RowBox[{"SwatchLegend", "[", 
       RowBox[{
         RowBox[{"{", 
           RowBox[{
             RowBox[{"{", 
               RowBox[{
                 RowBox[{"Directive", "[", 
                   RowBox[{
                    RowBox[{"EdgeForm", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Thickness", "[", "Small", "]"}], ",", 
                    RowBox[{"Opacity", "[", "0.7`", "]"}]}], "}"}], "]"}], 
                    ",", 
                    RowBox[{"RGBColor", "[", 
                    
                    RowBox[{
                    "0.798413061722744`", ",", "0.824719615472648`", ",", 
                    "0.968322270542458`"}], "]"}]}], "]"}], ",", 
                 RowBox[{"Directive", "[", 
                   RowBox[{
                    RowBox[{"EdgeForm", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Thickness", "[", "Small", "]"}], ",", 
                    RowBox[{"Opacity", "[", "0.7`", "]"}]}], "}"}], "]"}], 
                    ",", 
                    RowBox[{"RGBColor", "[", 
                    
                    RowBox[{
                    "0.798413061722744`", ",", "0.824719615472648`", ",", 
                    "0.968322270542458`"}], "]"}]}], "]"}], ",", 
                 RowBox[{"Directive", "[", 
                   RowBox[{
                    RowBox[{"EdgeForm", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Thickness", "[", "Small", "]"}], ",", 
                    RowBox[{"Opacity", "[", "0.7`", "]"}]}], "}"}], "]"}], 
                    ",", 
                    RowBox[{"RGBColor", "[", 
                    
                    RowBox[{
                    "0.798413061722744`", ",", "0.824719615472648`", ",", 
                    "0.968322270542458`"}], "]"}]}], "]"}], ",", 
                 RowBox[{"Directive", "[", 
                   RowBox[{
                    RowBox[{"EdgeForm", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Thickness", "[", "Small", "]"}], ",", 
                    RowBox[{"Opacity", "[", "0.7`", "]"}]}], "}"}], "]"}], 
                    ",", 
                    RowBox[{"RGBColor", "[", 
                    
                    RowBox[{
                    "0.798413061722744`", ",", "0.824719615472648`", ",", 
                    "0.968322270542458`"}], "]"}]}], "]"}], ",", 
                 RowBox[{"Directive", "[", 
                   RowBox[{
                    RowBox[{"EdgeForm", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Thickness", "[", "Small", "]"}], ",", 
                    RowBox[{"Opacity", "[", "0.7`", "]"}]}], "}"}], "]"}], 
                    ",", 
                    RowBox[{"RGBColor", "[", 
                    
                    RowBox[{
                    "0.798413061722744`", ",", "0.824719615472648`", ",", 
                    "0.968322270542458`"}], "]"}]}], "]"}], ",", 
                 RowBox[{"Directive", "[", 
                   RowBox[{
                    RowBox[{"EdgeForm", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Thickness", "[", "Small", "]"}], ",", 
                    RowBox[{"Opacity", "[", "0.7`", "]"}]}], "}"}], "]"}], 
                    ",", 
                    RowBox[{"RGBColor", "[", 
                    
                    RowBox[{
                    "0.798413061722744`", ",", "0.824719615472648`", ",", 
                    "0.968322270542458`"}], "]"}]}], "]"}], ",", 
                 RowBox[{"Directive", "[", 
                   RowBox[{
                    RowBox[{"EdgeForm", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Thickness", "[", "Small", "]"}], ",", 
                    RowBox[{"Opacity", "[", "0.7`", "]"}]}], "}"}], "]"}], 
                    ",", 
                    RowBox[{"RGBColor", "[", 
                    
                    RowBox[{
                    "0.798413061722744`", ",", "0.824719615472648`", ",", 
                    "0.968322270542458`"}], "]"}]}], "]"}], ",", 
                 RowBox[{"Directive", "[", 
                   RowBox[{
                    RowBox[{"EdgeForm", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Thickness", "[", "Small", "]"}], ",", 
                    RowBox[{"Opacity", "[", "0.7`", "]"}]}], "}"}], "]"}], 
                    ",", 
                    RowBox[{"RGBColor", "[", 
                    
                    RowBox[{
                    "0.798413061722744`", ",", "0.824719615472648`", ",", 
                    "0.968322270542458`"}], "]"}]}], "]"}], ",", 
                 RowBox[{"Directive", "[", 
                   RowBox[{
                    RowBox[{"EdgeForm", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Thickness", "[", "Small", "]"}], ",", 
                    RowBox[{"Opacity", "[", "0.7`", "]"}]}], "}"}], "]"}], 
                    ",", 
                    RowBox[{"RGBColor", "[", 
                    
                    RowBox[{
                    "0.798413061722744`", ",", "0.824719615472648`", ",", 
                    "0.968322270542458`"}], "]"}]}], "]"}], ",", 
                 RowBox[{"Directive", "[", 
                   RowBox[{
                    RowBox[{"EdgeForm", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Thickness", "[", "Small", "]"}], ",", 
                    RowBox[{"Opacity", "[", "0.7`", "]"}]}], "}"}], "]"}], 
                    ",", 
                    RowBox[{"RGBColor", "[", 
                    
                    RowBox[{
                    "0.798413061722744`", ",", "0.824719615472648`", ",", 
                    "0.968322270542458`"}], "]"}]}], "]"}], ",", 
                 RowBox[{"Directive", "[", 
                   RowBox[{
                    RowBox[{"EdgeForm", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Thickness", "[", "Small", "]"}], ",", 
                    RowBox[{"Opacity", "[", "0.7`", "]"}]}], "}"}], "]"}], 
                    ",", 
                    RowBox[{"RGBColor", "[", 
                    
                    RowBox[{
                    "0.798413061722744`", ",", "0.824719615472648`", ",", 
                    "0.968322270542458`"}], "]"}]}], "]"}], ",", 
                 RowBox[{"Directive", "[", 
                   RowBox[{
                    RowBox[{"EdgeForm", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Thickness", "[", "Small", "]"}], ",", 
                    RowBox[{"Opacity", "[", "0.7`", "]"}]}], "}"}], "]"}], 
                    ",", 
                    RowBox[{"RGBColor", "[", 
                    
                    RowBox[{
                    "0.798413061722744`", ",", "0.824719615472648`", ",", 
                    "0.968322270542458`"}], "]"}]}], "]"}], ",", 
                 RowBox[{"Directive", "[", 
                   RowBox[{
                    RowBox[{"EdgeForm", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Thickness", "[", "Small", "]"}], ",", 
                    RowBox[{"Opacity", "[", "0.7`", "]"}]}], "}"}], "]"}], 
                    ",", 
                    RowBox[{"RGBColor", "[", 
                    
                    RowBox[{
                    "0.798413061722744`", ",", "0.824719615472648`", ",", 
                    "0.968322270542458`"}], "]"}]}], "]"}], ",", 
                 RowBox[{"Directive", "[", 
                   RowBox[{
                    RowBox[{"EdgeForm", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Thickness", "[", "Small", "]"}], ",", 
                    RowBox[{"Opacity", "[", "0.7`", "]"}]}], "}"}], "]"}], 
                    ",", 
                    RowBox[{"RGBColor", "[", 
                    
                    RowBox[{
                    "0.798413061722744`", ",", "0.824719615472648`", ",", 
                    "0.968322270542458`"}], "]"}]}], "]"}], ",", 
                 RowBox[{"Directive", "[", 
                   RowBox[{
                    RowBox[{"EdgeForm", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Thickness", "[", "Small", "]"}], ",", 
                    RowBox[{"Opacity", "[", "0.7`", "]"}]}], "}"}], "]"}], 
                    ",", 
                    RowBox[{"RGBColor", "[", 
                    RowBox[{
                    "0.798413061722744`", ",", "0.824719615472648`", ",", 
                    "0.968322270542458`"}], "]"}]}], "]"}], ",", 
                 RowBox[{"Directive", "[", 
                   RowBox[{
                    RowBox[{"EdgeForm", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Thickness", "[", "Small", "]"}], ",", 
                    RowBox[{"Opacity", "[", "0.7`", "]"}]}], "}"}], "]"}], 
                    ",", 
                    RowBox[{"RGBColor", "[", 
                    
                    RowBox[{
                    "0.798413061722744`", ",", "0.824719615472648`", ",", 
                    "0.968322270542458`"}], "]"}]}], "]"}]}], "}"}], ",", 
             RowBox[{"{", 
               RowBox[{
                 RowBox[{"Directive", "[", 
                   RowBox[{
                    RowBox[{"EdgeForm", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Thickness", "[", "Small", "]"}], ",", 
                    RowBox[{"Opacity", "[", "0.7`", "]"}]}], "}"}], "]"}], 
                    ",", 
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.66`", ",", "0.7960000000000002`", ",", "1.`"}],
                     "]"}]}], "]"}], ",", 
                 RowBox[{"Directive", "[", 
                   RowBox[{
                    RowBox[{"EdgeForm", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Thickness", "[", "Small", "]"}], ",", 
                    RowBox[{"Opacity", "[", "0.7`", "]"}]}], "}"}], "]"}], 
                    ",", 
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.66`", ",", "1.`", ",", "1.`"}], "]"}]}], "]"}],
                  ",", 
                 RowBox[{"Directive", "[", 
                   RowBox[{
                    RowBox[{"EdgeForm", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Thickness", "[", "Small", "]"}], ",", 
                    RowBox[{"Opacity", "[", "0.7`", "]"}]}], "}"}], "]"}], 
                    ",", 
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.66`", ",", "1.`", ",", "0.796`"}], "]"}]}], 
                   "]"}], ",", 
                 RowBox[{"Directive", "[", 
                   RowBox[{
                    RowBox[{"EdgeForm", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Thickness", "[", "Small", "]"}], ",", 
                    RowBox[{"Opacity", "[", "0.7`", "]"}]}], "}"}], "]"}], 
                    ",", 
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.7280000000000001`", ",", "1.`", ",", "0.66`"}],
                     "]"}]}], "]"}], ",", 
                 RowBox[{"Directive", "[", 
                   RowBox[{
                    RowBox[{"EdgeForm", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Thickness", "[", "Small", "]"}], ",", 
                    RowBox[{"Opacity", "[", "0.7`", "]"}]}], "}"}], "]"}], 
                    ",", 
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.932`", ",", "1.`", ",", "0.66`"}], "]"}]}], 
                   "]"}], ",", 
                 RowBox[{"Directive", "[", 
                   RowBox[{
                    RowBox[{"EdgeForm", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Thickness", "[", "Small", "]"}], ",", 
                    RowBox[{"Opacity", "[", "0.7`", "]"}]}], "}"}], "]"}], 
                    ",", 
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"1.`", ",", "0.864`", ",", "0.66`"}], "]"}]}], 
                   "]"}], ",", 
                 RowBox[{"Directive", "[", 
                   RowBox[{
                    RowBox[{"EdgeForm", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Thickness", "[", "Small", "]"}], ",", 
                    RowBox[{"Opacity", "[", "0.7`", "]"}]}], "}"}], "]"}], 
                    ",", 
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"1.`", ",", "0.66`", ",", "0.66`"}], "]"}]}], 
                   "]"}]}], "}"}]}], "}"}], ",", 
         RowBox[{"{", 
           RowBox[{
             RowBox[{"{", "}"}], ",", 
             RowBox[{"{", 
               
               RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6, 
                 ",", #7}], "}"}]}], "}"}], ",", 
         RowBox[{"LegendLayout", "\[Rule]", "\"Row\""}], ",", 
         RowBox[{"LegendMarkers", "\[Rule]", 
           RowBox[{"{", 
             RowBox[{
               RowBox[{"{", 
                 
                 RowBox[{
                  "None", ",", "None", ",", "None", ",", "None", ",", "None", 
                   ",", "None", ",", "None", ",", "None", ",", "None", ",", 
                   "None", ",", "None", ",", "None", ",", "None", ",", "None",
                    ",", "None", ",", "None"}], "}"}], ",", 
               RowBox[{"{", 
                 
                 RowBox[{
                  "Automatic", ",", "Automatic", ",", "Automatic", ",", 
                   "Automatic", ",", "Automatic", ",", "Automatic", ",", 
                   "Automatic"}], "}"}]}], "}"}]}]}], "]"}]& )]},
  "Legended",
  DisplayFunction->(GridBox[{{
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}, {
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {2, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "Above"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{{3.5683819844638557`*^9, 3.568382003386938*^9}, 
   3.56838208349452*^9, {3.568382136678562*^9, 3.568382147013153*^9}, {
   3.5683824168735886`*^9, 3.5683824271151743`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"m", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"{", 
     RowBox[{"1", ",", " ", "2"}], "}"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"n", " ", "=", " ", 
   RowBox[{"{", "m", "}"}]}], ";"}], "\[IndentingNewLine]", "n"}], "Input",
 CellChangeTimes->{{3.568705387229391*^9, 3.568705398733049*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2"}], "}"}], "}"}], "}"}]], "Output",
 CellChangeTimes->{3.5687053990580673`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"n", "[", 
  RowBox[{"[", "1", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.5687054018172255`*^9, 3.568705406412488*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"1", ",", "2"}], "}"}], "}"}]], "Output",
 CellChangeTimes->{3.5687054068555136`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"a", " ", "=", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"1", ",", " ", "2"}], "}"}], ",", " ", 
         RowBox[{"{", "}"}]}], "}"}], ",", " ", 
       RowBox[{"{", "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", "1", "}"}], ",", " ", 
         RowBox[{"{", "2", "}"}]}], "}"}]}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Column", "@", "a"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"While", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"Length", "@", 
        RowBox[{"a", "[", 
         RowBox[{"[", "2", "]"}], "]"}]}], " ", "<", " ", "3"}], ",", 
      RowBox[{"AppendTo", "[", 
       RowBox[{
        RowBox[{"a", "[", 
         RowBox[{"[", "2", "]"}], "]"}], ",", " ", 
        RowBox[{"{", "}"}]}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"Column", "@", "a"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"AppendTo", "[", 
     RowBox[{
      RowBox[{"a", "[", 
       RowBox[{"[", 
        RowBox[{"2", ",", "3"}], "]"}], "]"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{"2", ",", "2", ",", "2"}], "}"}]}], "}"}]}], "]"}], ";", 
    RowBox[{"Column", "@", "a"}]}]}]}]], "Input",
 CellChangeTimes->{{3.5687244367699623`*^9, 3.56872450666296*^9}, {
  3.5687267654311543`*^9, 3.568726827231689*^9}, {3.568726922223122*^9, 
  3.56872693530087*^9}, {3.56872702656509*^9, 3.568727072350709*^9}, {
  3.568727164910003*^9, 3.5687272235893593`*^9}, {3.568727255348176*^9, 
  3.568727274011243*^9}, {3.5687275100997467`*^9, 3.5687275440666895`*^9}, {
  3.5687275762115283`*^9, 3.568727584193985*^9}}],

Cell[BoxData[
 TagBox[GridBox[{
    {
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", "2"}], "}"}], ",", 
       RowBox[{"{", "}"}]}], "}"}]},
    {
     RowBox[{"{", "}"}]},
    {
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", "1", "}"}], ",", 
       RowBox[{"{", "2", "}"}]}], "}"}]}
   },
   DefaultBaseStyle->"Column",
   GridBoxAlignment->{"Columns" -> {{Left}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Column"]], "Output",
 CellChangeTimes->{{3.568724487477863*^9, 3.5687245093381133`*^9}, {
   3.5687267814290695`*^9, 3.5687267871023936`*^9}, {3.5687268217543755`*^9, 
   3.568726827733718*^9}, {3.568726923041169*^9, 3.5687269356878924`*^9}, {
   3.56872703320547*^9, 3.5687270731087523`*^9}, {3.568727188511353*^9, 
   3.5687272239883823`*^9}, {3.568727257151279*^9, 3.5687272745162725`*^9}, {
   3.56872752589865*^9, 3.5687275451477513`*^9}, 3.568727584847022*^9}],

Cell[BoxData[
 TagBox[GridBox[{
    {
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", "2"}], "}"}], ",", 
       RowBox[{"{", "}"}]}], "}"}]},
    {
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", "}"}], ",", 
       RowBox[{"{", "}"}], ",", 
       RowBox[{"{", "}"}]}], "}"}]},
    {
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", "1", "}"}], ",", 
       RowBox[{"{", "2", "}"}]}], "}"}]}
   },
   DefaultBaseStyle->"Column",
   GridBoxAlignment->{"Columns" -> {{Left}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Column"]], "Output",
 CellChangeTimes->{{3.568724487477863*^9, 3.5687245093381133`*^9}, {
   3.5687267814290695`*^9, 3.5687267871023936`*^9}, {3.5687268217543755`*^9, 
   3.568726827733718*^9}, {3.568726923041169*^9, 3.5687269356878924`*^9}, {
   3.56872703320547*^9, 3.5687270731087523`*^9}, {3.568727188511353*^9, 
   3.5687272239883823`*^9}, {3.568727257151279*^9, 3.5687272745162725`*^9}, {
   3.56872752589865*^9, 3.5687275451477513`*^9}, 3.568727584849022*^9}],

Cell[BoxData[
 TagBox[GridBox[{
    {
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", "2"}], "}"}], ",", 
       RowBox[{"{", "}"}]}], "}"}]},
    {
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", "}"}], ",", 
       RowBox[{"{", "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"2", ",", "2", ",", "2"}], "}"}]}], "}"}], "}"}]}], 
      "}"}]},
    {
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", "1", "}"}], ",", 
       RowBox[{"{", "2", "}"}]}], "}"}]}
   },
   DefaultBaseStyle->"Column",
   GridBoxAlignment->{"Columns" -> {{Left}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Column"]], "Output",
 CellChangeTimes->{{3.568724487477863*^9, 3.5687245093381133`*^9}, {
   3.5687267814290695`*^9, 3.5687267871023936`*^9}, {3.5687268217543755`*^9, 
   3.568726827733718*^9}, {3.568726923041169*^9, 3.5687269356878924`*^9}, {
   3.56872703320547*^9, 3.5687270731087523`*^9}, {3.568727188511353*^9, 
   3.5687272239883823`*^9}, {3.568727257151279*^9, 3.5687272745162725`*^9}, {
   3.56872752589865*^9, 3.5687275451477513`*^9}, 3.5687275848510227`*^9}]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.5687819796192255`*^9, 3.5687819908488674`*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.5687857558842154`*^9, 3.5687858084642224`*^9}, {
  3.568791516766719*^9, 3.5687915675176215`*^9}, {3.5687916259409633`*^9, 
  3.5687916379176483`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "x_", "]"}], " ", ":=", " ", 
   RowBox[{"Abs", "[", "x", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Gather", " ", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"1", ",", 
      RowBox[{"-", "1"}], ",", "3", ",", " ", "2", ",", " ", 
      RowBox[{"-", "2"}]}], "}"}], ",", 
    RowBox[{
     RowBox[{
      RowBox[{"f", "[", "#1", "]"}], " ", "\[Equal]", " ", 
      RowBox[{"f", "[", "#2", "]"}]}], "&"}]}], "]"}], " "}]}], "Input",
 CellChangeTimes->{{3.568791122433164*^9, 3.5687911338888197`*^9}, {
  3.568791574870042*^9, 3.5687916098460426`*^9}, {3.5687916401087737`*^9, 
  3.5687916473411875`*^9}, {3.568791713196954*^9, 3.568791720278359*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", 
     RowBox[{"-", "1"}]}], "}"}], ",", 
   RowBox[{"{", "3", "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", 
     RowBox[{"-", "2"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.5687911267424107`*^9, 3.5687911342758417`*^9}, {
   3.5687916003084974`*^9, 3.5687916108991027`*^9}, {3.5687916416808634`*^9, 
   3.5687916479012194`*^9}, 3.568791720887394*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"f", "[", 
  RowBox[{"{", 
   RowBox[{"1", ",", 
    RowBox[{"-", "2"}], ",", "3"}], "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.5687919821053343`*^9, 3.5687919965471606`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", "2", ",", "3"}], "}"}]], "Output",
 CellChangeTimes->{{3.568791992302918*^9, 3.5687919969681845`*^9}}]
}, Open  ]],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{{3.5689731607031574`*^9, 3.5689731738279085`*^9}, {
   3.56906068008298*^9, 3.5690606802509894`*^9}, 3.569060712793851*^9}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"ab", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"AddTo", "[", 
   RowBox[{"ab", ",", 
    RowBox[{"{", 
     RowBox[{"30", ",", "40"}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", "ab", "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ab", " ", "+=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1"}], ",", " ", 
     RowBox[{"-", "2"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", "ab"}], "Input",
 CellChangeTimes->{{3.5689731077271276`*^9, 3.568973196861226*^9}, {
  3.5690606445379467`*^9, 3.5690607148919706`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"31", ",", "42"}], "}"}]], "Output",
 CellChangeTimes->{{3.5689731154895716`*^9, 3.5689731316094933`*^9}, 
   3.5689731977462764`*^9, 3.569060664230073*^9, {3.569060695597867*^9, 
   3.5690607152449913`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"30", ",", "40"}], "}"}]], "Output",
 CellChangeTimes->{{3.5689731154895716`*^9, 3.5689731316094933`*^9}, 
   3.5689731977462764`*^9, 3.569060664230073*^9, {3.569060695597867*^9, 
   3.569060715248991*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"mn", " ", "=", " ", "3"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"an", " ", "=", " ", "5"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"dls", " ", "=", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", " ", "0"}], "}"}], " ", "&"}], "/@", " ", 
        RowBox[{"Range", "@", "an"}]}], ")"}], " ", "&"}], "/@", " ", 
     RowBox[{"Range", "@", "mn"}]}]}]}]}]], "Input",
 CellChangeTimes->{{3.5690571102967997`*^9, 3.5690571968917527`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.569057143882721*^9, 3.569057197755802*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"qq", " ", "=", " ", 
     RowBox[{"{", 
      RowBox[{"1", ",", "2", ",", "3"}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"qq", "[", 
      RowBox[{"[", 
       RowBox[{"-", "1"}], "]"}], "]"}], " ", "=", " ", "2"}], ";"}], 
   "\[IndentingNewLine]", "qq"}]}]], "Input",
 CellChangeTimes->{{3.5690577542096295`*^9, 3.569057754320636*^9}, {
  3.5690610490320826`*^9, 3.5690610914485083`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"{", 
   RowBox[{"1", ",", "2", ",", "2"}], "}"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"RandomReal", "[", 
  RowBox[{"{", 
   RowBox[{"5", ",", "6"}], "}"}], "]"}]}], "Input",
 CellChangeTimes->{{3.5690644601031847`*^9, 3.569064466680561*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", "2", ",", "2"}], "}"}]], "Output",
 CellChangeTimes->{3.5690644673666*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"qq", " ", "=", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", "}"}], ",", " ", 
         RowBox[{"{", "}"}]}], "}"}], ",", " ", 
       RowBox[{"{", "}"}], ",", " ", 
       RowBox[{"{", "}"}]}], "}"}]}], ";"}], " ", "\[IndentingNewLine]", 
   RowBox[{"qq", "[", 
    RowBox[{"[", "1", "]"}], "]"}], "\[IndentingNewLine]", 
   RowBox[{"Length", "@", 
    RowBox[{"qq", "[", 
     RowBox[{"[", "3", "]"}], "]"}]}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"AppendTo", "[", 
     RowBox[{
      RowBox[{"qq", "[", 
       RowBox[{"[", 
        RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", " ", "55"}], "]"}], ";"}],
    "\[IndentingNewLine]", "qq"}]}]], "Input",
 CellChangeTimes->{{3.569065002779224*^9, 3.569065046444721*^9}, {
  3.5690675560432625`*^9, 3.5690676116984453`*^9}, {3.5690698553387747`*^9, 
  3.569069962242889*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", "}"}], ",", 
   RowBox[{"{", "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.5690650246024723`*^9, 3.569065047564786*^9}, {
   3.569067559865481*^9, 3.56906760652915*^9}, 3.569069882784344*^9, {
   3.5690699143821516`*^9, 3.5690699625299053`*^9}}],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{{3.5690650246024723`*^9, 3.569065047564786*^9}, {
   3.569067559865481*^9, 3.56906760652915*^9}, 3.569069882784344*^9, {
   3.5690699143821516`*^9, 3.5690699625319057`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"qq", " ", "=", " ", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"55", ",", " ", "56"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", "}"}], ",", 
    RowBox[{"{", "}"}]}], "}"}]}], "\[IndentingNewLine]", 
 RowBox[{"Last", "@", 
  RowBox[{"Last", "@", 
   RowBox[{"qq", "[", 
    RowBox[{"[", "1", "]"}], "]"}]}]}]}], "Input",
 CellChangeTimes->{{3.5690700135998263`*^9, 3.569070066169833*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"55", ",", "56"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", "}"}], ",", 
   RowBox[{"{", "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.569070027770637*^9, 3.5690700665128527`*^9}}],

Cell[BoxData["56"], "Output",
 CellChangeTimes->{{3.569070027770637*^9, 3.569070066514853*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"ff", "[", 
      RowBox[{"a_", ",", " ", "b_"}], "]"}], " ", ":=", " ", 
     RowBox[{"a", "+", "b"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ar", " ", "=", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"2", ",", "3"}], "}"}]}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"ff", " ", "/@", " ", "ar"}]}]}]], "Input",
 CellChangeTimes->{{3.5690720951018815`*^9, 3.569072160954648*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"ff", "[", 
    RowBox[{"{", 
     RowBox[{"1", ",", "2"}], "}"}], "]"}], ",", 
   RowBox[{"ff", "[", 
    RowBox[{"{", 
     RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.5690721184722185`*^9, 3.5690721620097084`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"w", " ", "=", " ", 
     RowBox[{"{", 
      RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"w", "[", 
    RowBox[{"[", 
     RowBox[{"-", "2"}], "]"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.5690723139794006`*^9, 3.5690723222248726`*^9}, {
  3.569076168830886*^9, 3.5690761758402863`*^9}}],

Cell[BoxData["3"], "Output",
 CellChangeTimes->{3.5690723231589255`*^9, 3.5690761763153133`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"f", "[", "x_", "]"}], " ", ":=", " ", 
     RowBox[{"Abs", "[", "x", "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ar", " ", "=", " ", 
     RowBox[{"{", 
      RowBox[{"1", ",", "2", ",", "3"}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"f", "[", "ar", "]"}], "\[IndentingNewLine]", 
   RowBox[{"Abs", "[", 
    RowBox[{"{", 
     RowBox[{"1", ",", "2", ",", "3"}], "}"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.569234076036661*^9, 3.56923418564793*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", "2", ",", "3"}], "}"}]], "Output",
 CellChangeTimes->{{3.569234134917029*^9, 3.5692341562762504`*^9}, 
   3.5692341864839783`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", "2", ",", "3"}], "}"}]], "Output",
 CellChangeTimes->{{3.569234134917029*^9, 3.5692341562762504`*^9}, 
   3.5692341864869785`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"l", " ", "=", " ", 
    RowBox[{"Gather", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"{", 
        RowBox[{"2", ",", "3", ",", "4"}], "}"}], "}"}], ",", " ", 
      RowBox[{
       RowBox[{"#1", " ", "\[Equal]", " ", "#2"}], "&"}]}], "]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"l", "[", 
    RowBox[{"[", "1", "]"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.5693170942540317`*^9, 3.569317133984304*^9}, {
   3.569317200663118*^9, 3.5693172392293234`*^9}, 3.5693236465218*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"{", 
    RowBox[{"2", ",", "3", ",", "4"}], "}"}], "}"}], "}"}]], "Output",
 CellChangeTimes->{{3.569317190006508*^9, 3.5693172056754045`*^9}, 
   3.56931723986236*^9, {3.5693236496659794`*^9, 3.569323669625121*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"2", ",", "3", ",", "4"}], "}"}], "}"}]], "Output",
 CellChangeTimes->{{3.569317190006508*^9, 3.5693172056754045`*^9}, 
   3.56931723986236*^9, {3.5693236496659794`*^9, 3.5693236696281214`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"Accumulate", " ", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "2"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"1", ",", "3"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"1", ",", "4"}], "}"}]}], "}"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.5704377573041945`*^9, 3.57043777506221*^9}, {
  3.5704379437898607`*^9, 3.570437950861265*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "9"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.57043786789452*^9, {3.5704379460589905`*^9, 3.570437951361294*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"aq", " ", "=", " ", 
     RowBox[{"{", 
      RowBox[{"1", ",", "2", ",", "3"}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ap", " ", "=", " ", 
     RowBox[{"{", 
      RowBox[{"10", ",", " ", "20", ",", " ", "30"}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"bq", " ", "=", " ", 
     RowBox[{"{", 
      RowBox[{"1.1", ",", " ", "2.1", ",", " ", "3.1"}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"bp", " ", "=", " ", 
     RowBox[{"{", 
      RowBox[{"11", ",", " ", "21", ",", " ", "31"}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"MapThread", "[", 
    RowBox[{"List", ",", 
     RowBox[{"{", 
      RowBox[{"aq", ",", "ap"}], "}"}]}], "]"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"ListPlot", "[", 
    RowBox[{"{", 
     RowBox[{"x", ",", "y"}], "}"}], "]"}], " "}]}]], "Input",
 CellChangeTimes->{{3.570441003467864*^9, 3.570441130720143*^9}, {
  3.570441161998932*^9, 3.5704413283814483`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "10"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "20"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "30"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.5704410824513817`*^9, 3.570441131700199*^9, {3.570441164433071*^9, 
   3.570441248045853*^9}, {3.570441288572171*^9, 3.5704413286014605`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {
    {RGBColor[0.24720000000000014`, 0.24, 0.6], 
     PointBox[{{1., 10.}, {2., 20.}, {3., 30.}}]}, 
    {RGBColor[0.6, 0.24, 0.4428931686004542], 
     PointBox[{{1.1, 11.}, {2.1, 21.}, {3.1, 31.}}]}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{1., 10.},
  Method->{},
  PlotRange->{{1., 3.1}, {10., 31.}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0.042, 0.042}, {0.42, 0.42}}]], "Output",
 CellChangeTimes->{
  3.5704410824513817`*^9, 3.570441131700199*^9, {3.570441164433071*^9, 
   3.570441248045853*^9}, {3.570441288572171*^9, 3.570441328619462*^9}}]
}, Open  ]],

Cell[BoxData["1"], "Input",
 CellChangeTimes->{3.570441290029255*^9}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Flatten", "[", 
  RowBox[{
   RowBox[{"Outer", "[", 
    RowBox[{"List", ",", " ", 
     RowBox[{"{", 
      RowBox[{"1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"3", ",", "4", ",", "5"}], "}"}]}], "]"}], ",", " ", "1"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Map", "[", 
  RowBox[{"Flatten", ",", " ", 
   RowBox[{"Outer", "[", 
    RowBox[{"List", ",", " ", 
     RowBox[{"{", 
      RowBox[{"1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"3", ",", "4"}], "}"}]}], "]"}], " ", ",", " ", 
   RowBox[{"{", "2", "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.5704487800726604`*^9, 3.570448808300275*^9}, {
  3.5704488549359426`*^9, 3.570448860200244*^9}, {3.570448898615441*^9, 
  3.570449248149433*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "5"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.5704490753765507`*^9, 3.5704492483994474`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "3"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "4"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"2", ",", "3"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2", ",", "4"}], "}"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.5704490753765507`*^9, 3.5704492484034476`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Dimensions", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"1", ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1", ",", "4"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"2", ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"2", ",", "4"}], "}"}]}], "}"}]}], "}"}], "]"}]], "Input",
 NumberMarks->False],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"2", ",", "2", ",", "2"}], "}"}]], "Output",
 CellChangeTimes->{3.57044898863859*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"SortBy", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "3", ",", "4", ",", "21", ",", "6", ",", "3", ",", "2", ",", "1"}], 
     "}"}], ",", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{"Abs", "[", "#", "]"}]}], "&"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.5704564038647165`*^9, 3.5704564674193516`*^9}, {
  3.5704565168021765`*^9, 3.5704566094574757`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"21", ",", "6", ",", "4", ",", "3", ",", "3", ",", "2", ",", "1"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.5704566097654934`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "func", ",", " ", "x", ",", "y", ",", "temp", ",", "asks", ",", "bids", 
      ",", "s", ",", "f"}], "}"}], ",", "\[IndentingNewLine]", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"func", " ", ":=", " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"temp", "=", 
          RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", 
         RowBox[{"Print", "[", "#", "]"}], ";", "\[IndentingNewLine]", 
         RowBox[{"For", "[", 
          RowBox[{
           RowBox[{"i", "=", "1"}], ",", 
           RowBox[{"i", "\[LessEqual]", 
            RowBox[{"Length", "@", 
             RowBox[{"#", "[", 
              RowBox[{"[", "1", "]"}], "]"}]}]}], ",", 
           RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"s", "=", 
             RowBox[{"If", "[", 
              RowBox[{
               RowBox[{"i", "\[Equal]", "1"}], ",", "0", ",", 
               RowBox[{"#", "[", 
                RowBox[{"[", 
                 RowBox[{"1", ",", 
                  RowBox[{"i", "-", "1"}]}], "]"}], "]"}]}], "]"}]}], ";", 
            "\[IndentingNewLine]", 
            RowBox[{"f", "=", 
             RowBox[{"#", "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", " ", "i"}], "]"}], "]"}]}], ";", 
            "\[IndentingNewLine]", 
            RowBox[{"AppendTo", "[", 
             RowBox[{"temp", ",", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"#", "[", 
                 RowBox[{"[", 
                  RowBox[{"2", ",", "i"}], "]"}], "]"}], ",", 
                RowBox[{"ToExpression", "[", 
                 RowBox[{"\"\<x > \>\"", "<>", 
                  RowBox[{"ToString", "@", "s"}], "<>", "\"\< && \>\"", "<>", 
                  "\"\<x <= \>\"", "<>", 
                  RowBox[{"ToString", "@", "f"}]}], "]"}]}], "}"}]}], "]"}], 
            ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]",
          "temp"}], ")"}], "&"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"func", " ", "/@", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"1", ",", "2"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"10", ",", "20"}], "}"}]}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"2", ",", "3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"11", ",", "21"}], "}"}]}], "}"}]}], "}"}]}]}]}], 
   "\[IndentingNewLine]", "]"}]}]], "Input",
 CellChangeTimes->{{3.5705440513968687`*^9, 3.570544205574687*^9}, {
   3.5705442538204465`*^9, 3.5705442630349736`*^9}, {3.5705443507789927`*^9, 
   3.5705444941101904`*^9}, {3.5705445253029747`*^9, 3.570544548539304*^9}, 
   3.5705445996022243`*^9, {3.5705447071463757`*^9, 3.570544719537084*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"10", ",", "20"}], "}"}]}], "}"}]], "Print",
 CellChangeTimes->{{3.570544363395714*^9, 3.570544404443062*^9}, 
   3.570544498344433*^9, 3.570544548982329*^9, 3.570544600065251*^9, 
   3.5705447198711033`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"2", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"11", ",", "21"}], "}"}]}], "}"}]], "Print",
 CellChangeTimes->{{3.570544363395714*^9, 3.570544404443062*^9}, 
   3.570544498344433*^9, 3.570544548982329*^9, 3.570544600065251*^9, 
   3.5705447198741035`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"10", ",", 
       RowBox[{
        RowBox[{"x", ">", "0"}], "&&", 
        RowBox[{"x", "\[LessEqual]", "1"}]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"20", ",", 
       RowBox[{
        RowBox[{"x", ">", "1"}], "&&", 
        RowBox[{"x", "\[LessEqual]", "2"}]}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"11", ",", 
       RowBox[{
        RowBox[{"x", ">", "0"}], "&&", 
        RowBox[{"x", "\[LessEqual]", "2"}]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"21", ",", 
       RowBox[{
        RowBox[{"x", ">", "2"}], "&&", 
        RowBox[{"x", "\[LessEqual]", "3"}]}]}], "}"}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.5705441192607503`*^9, 3.5705441642653246`*^9, 3.570544206286728*^9, 
   3.5705442638340197`*^9, {3.570544363448717*^9, 3.5705444044770637`*^9}, 
   3.5705444983484325`*^9, 3.570544548988329*^9, 3.5705446000672507`*^9, 
   3.5705447198761034`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"out", " ", "=", " ", 
     RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"nums", " ", "=", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", "1", "}"}], ",", " ", 
       RowBox[{"{", "2", "}"}], ",", " ", 
       RowBox[{"{", "3", "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Function", "[", 
      RowBox[{"num", ",", "\[IndentingNewLine]", "\t", 
       RowBox[{
        RowBox[{"AppendTo", "[", 
         RowBox[{"out", ",", " ", 
          RowBox[{"num", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], "]"}], ";"}]}], 
      "\[IndentingNewLine]", "]"}], " ", "/@", " ", "nums"}], ";"}], 
   "\[IndentingNewLine]", "out", "\[IndentingNewLine]", 
   RowBox[{"Head", "[", "out", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.570859081396951*^9, 3.570859160868497*^9}, {
  3.5708659602113967`*^9, 3.5708659647486563`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", "2", ",", "3"}], "}"}]], "Output",
 CellChangeTimes->{3.5708591614035273`*^9, 3.570865965177681*^9}],

Cell[BoxData["List"], "Output",
 CellChangeTimes->{3.5708591614035273`*^9, 3.570865965179681*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"bl", " ", "=", " ", 
     RowBox[{"3", " ", "<", " ", "4"}]}], ";"}], "\[IndentingNewLine]", 
   "bl"}]}]], "Input",
 CellChangeTimes->{{3.570861982405879*^9, 3.5708619884702263`*^9}}],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{3.5708619887082396`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"cc", " ", "=", " ", 
     RowBox[{"{", 
      RowBox[{"0.4", ",", " ", "0.6"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"RandomReal", "[", "cc", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.572329039583818*^9, 3.572329054512672*^9}}],

Cell[BoxData["0.5417791183962595`"], "Output",
 CellChangeTimes->{{3.5723290549396963`*^9, 3.5723290634911857`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"ListPlot", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"\"\<1/1\>\"", ",", " ", "2"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"\"\<1/2\>\"", ",", " ", "3"}], "}"}]}], "}"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.572334636070919*^9, 3.5723346745841217`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  Method->{},
  PlotRange->{{-1, 1}, {-1, 1}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0.04, 0.04}, {0.04, 0.04}}]], "Output",
 CellChangeTimes->{3.5723346753981686`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"a", " ", "=", " ", 
    RowBox[{"{", 
     RowBox[{"1", ",", "2", ",", "3"}], "}"}]}], "\[IndentingNewLine]", 
   RowBox[{"a", " ", "/.", " ", 
    RowBox[{
     RowBox[{"x_", "  ", "/;", " ", 
      RowBox[{"x", "==", "2"}]}], " ", "\[Rule]", " ", "4"}]}], 
   "\[IndentingNewLine]", "a"}]}]], "Input",
 CellChangeTimes->{{3.572425554295144*^9, 3.5724256689257*^9}, {
  3.5724257680453696`*^9, 3.572425790908677*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", "2", ",", "3"}], "}"}]], "Output",
 CellChangeTimes->{{3.572425616364694*^9, 3.5724256694587307`*^9}, {
  3.5724257695814576`*^9, 3.572425791147691*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", "4", ",", "3"}], "}"}]], "Output",
 CellChangeTimes->{{3.572425616364694*^9, 3.5724256694587307`*^9}, {
  3.5724257695814576`*^9, 3.572425791149691*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", "2", ",", "3"}], "}"}]], "Output",
 CellChangeTimes->{{3.572425616364694*^9, 3.5724256694587307`*^9}, {
  3.5724257695814576`*^9, 3.5724257911516914`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"p", " ", "=", " ", 
     RowBox[{"day", "\[Rule]", "3"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"Last", "@", "p"}]}]}]], "Input",
 CellChangeTimes->{{3.572425726884015*^9, 3.572425744742037*^9}}],

Cell[BoxData["3"], "Output",
 CellChangeTimes->{{3.57242573693359*^9, 3.572425745169061*^9}}]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.57268904728802*^9, 3.5726891168950014`*^9}, {
  3.5726891753993473`*^9, 3.572689175724366*^9}},
 EmphasizeSyntaxErrors->True],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Flatten", "[", 
  RowBox[{
   RowBox[{"hMarketsBooks", "[", 
    RowBox[{"[", 
     RowBox[{"1", ",", "1", ",", "1", ",", "All"}], "]"}], "]"}], ",", " ", 
   "1"}], "]"}]], "Input",
 CellChangeTimes->{{3.572689228298373*^9, 3.5726893647291765`*^9}, {
  3.5726893974860497`*^9, 3.57268953595197*^9}, {3.572689623052952*^9, 
  3.5726896919088902`*^9}, {3.5726897521963387`*^9, 3.57268976935632*^9}, {
  3.5726898734602747`*^9, 3.5726899597142076`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "8.333825374103283`", ",", "5.252022479361209`", ",", "Ask", ",", "5", 
     ",", "9"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "2.6625740385140992`", ",", "5.997604121328117`", ",", "Bid", ",", "2", 
     ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "7.122644937690785`", ",", "5.633820896772804`", ",", "Bid", ",", "3", 
     ",", "6"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "4.12991967181742`", ",", "5.716422640137218`", ",", "Bid", ",", "6", ",",
      "13"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.572689229085418*^9, 3.572689365127199*^9}, {
  3.572689419080285*^9, 3.5726895362439866`*^9}, {3.572689649354456*^9, 
  3.5726896923329144`*^9}, {3.572689761741884*^9, 3.572689770091362*^9}, {
  3.572689875365383*^9, 3.572689895904558*^9}, {3.5726899273033543`*^9, 
  3.57268995993622*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Grid", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\"\<a\>\"", ",", " ", "\"\<b\>\"", ",", " ", "\"\<c\>\""}], 
     "}"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Column", "@", 
       RowBox[{"{", 
        RowBox[{"\"\<a\>\"", ",", " ", "\"\<b\>\""}], "}"}]}], ",", " ", 
      "\"\<c\>\"", ",", " ", "\"\<v\>\""}], "}"}]}], "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.572690064991229*^9, 3.5726901843190546`*^9}, {
  3.572690310560275*^9, 3.5726903116243362`*^9}}],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"a\"\>", "\<\"b\"\>", "\<\"c\"\>"},
    {
     TagBox[GridBox[{
        {"\<\"a\"\>"},
        {"\<\"b\"\>"}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], "\<\"c\"\>", "\<\"v\"\>"}
   },
   AutoDelete->False,
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Grid"]], "Output",
 CellChangeTimes->{{3.572690100371253*^9, 3.572690185413117*^9}, 
   3.572690311921353*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"First", "@", 
   RowBox[{"First", "@", 
    RowBox[{"Position", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", " ", "1"}], 
     "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.572691875189767*^9, 3.5726918754677825`*^9}, {
  3.5726919058525205`*^9, 3.5726919083876657`*^9}, {3.572691969516162*^9, 
  3.5726919783666677`*^9}}],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{{3.57269188661342*^9, 3.572691908929696*^9}, {
  3.5726919699691877`*^9, 3.572691978616682*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.5749481125031333`*^9, 3.574948112645141*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Needs", "[", "\"\<DatabaseLink`\>\"", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"conn", "=", 
  RowBox[{"OpenSQLConnection", "[", 
   RowBox[{
    RowBox[{"JDBC", "[", 
     RowBox[{"\"\<mysql\>\"", ",", "\"\<localhost:3306/MA_DB\>\""}], "]"}], 
    ",", 
    RowBox[{"\"\<Username\>\"", "\[Rule]", "\"\<root\>\""}], ",", 
    RowBox[{"\"\<Password\>\"", "\[Rule]", "\"\<root\>\""}]}], 
   "]"}]}], "\n"}], "Input",
 CellChangeTimes->{{3.5750253674218616`*^9, 3.575025371870116*^9}, {
  3.5750254043739753`*^9, 3.5750254411650796`*^9}}],

Cell[BoxData[
 RowBox[{"SQLConnection", "[", 
  RowBox[{"2", ",", "\<\"Open\"\>", ",", 
   RowBox[{"\<\"Catalog\"\>", "\[Rule]", "\<\"MA_DB\"\>"}], ",", 
   RowBox[{"\<\"TransactionIsolationLevel\"\>", 
    "\[Rule]", "\<\"RepeatableRead\"\>"}]}], "]"}]], "Output",
 CellChangeTimes->{{3.5750253725331545`*^9, 3.5750253750022955`*^9}, {
  3.5750254054270353`*^9, 3.5750254419901266`*^9}, {3.575026317569207*^9, 
  3.5750263217724476`*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.575026326827737*^9, 3.575026327893798*^9}}],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.5750263835609818`*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SQLExecute", "[", 
  RowBox[{"conn", ",", " ", "\"\<create table Test (id int);\>\""}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.5750263929665194`*^9, 3.575026473422121*^9}}],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.5750264215681553`*^9, 3.5750264746721926`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SQLExecute", "[", 
  RowBox[{"conn", ",", " ", "\"\<show tables in MA_DB\>\""}], "]"}]], "Input",\

 CellChangeTimes->{{3.5750263477509336`*^9, 3.575026378349684*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", "\<\"test\"\>", "}"}], "}"}]], "Output",
 CellChangeTimes->{3.5750263791847315`*^9, 3.575026478360404*^9, 
  3.57502653546567*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"SQLInsert", "[", 
   RowBox[{"conn", ",", " ", "\"\<test\>\"", ",", " ", 
    RowBox[{"{", "\"\<ID\>\"", "}"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", "1", "}"}], ",", " ", 
      RowBox[{"{", "2", "}"}], ",", " ", 
      RowBox[{"{", "3", "}"}]}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.5750264849567814`*^9, 3.575026528876293*^9}, {
  3.575026724916506*^9, 3.5750267261075745`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", "1", ",", "1"}], "}"}]], "Output",
 CellChangeTimes->{3.5750265296793394`*^9, 3.575026726512597*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"SQLSelect", "[", 
    RowBox[{"conn", ",", " ", "\"\<test\>\"", ",", " ", 
     RowBox[{"\"\<ShowColumnHeadings\>\"", " ", "->", "True"}]}], "]"}], " ", 
   "//", "TableForm"}]}]], "Input",
 CellChangeTimes->{{3.5750265380258164`*^9, 3.5750265676045084`*^9}, {
  3.5750266610368524`*^9, 3.575026666501165*^9}}],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"id\"\>"},
    {"1"},
    {"2"},
    {"3"},
    {"1"},
    {"2"},
    {"3"}
   },
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}, "RowsIndexed" -> {}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.575026550187512*^9, 3.575026667162203*^9, 
  3.5750267299087915`*^9}]
}, Open  ]]
},
WindowSize->{841, 733},
WindowMargins->{{Automatic, 49}, {77, Automatic}},
ShowSelection->True,
FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (November 20, 2012)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "Info3565024152-6385872"->{
  Cell[14643, 400, 120, 2, 42, "Print",
   CellTags->"Info3565024152-6385872"]},
 "Info3565024176-6385872"->{
  Cell[15279, 425, 120, 2, 42, "Print",
   CellTags->"Info3565024176-6385872"],
  Cell[15402, 429, 844, 24, 23, "Print",
   CellTags->"Info3565024176-6385872"]},
 "Info3565024186-6385872"->{
  Cell[16533, 467, 120, 2, 42, "Print",
   CellTags->"Info3565024186-6385872"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"Info3565024152-6385872", 240862, 6221},
 {"Info3565024176-6385872", 240972, 6224},
 {"Info3565024186-6385872", 241163, 6229}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 1488, 38, 152, "Input"],
Cell[2070, 62, 559, 14, 31, "Output"],
Cell[2632, 78, 533, 11, 21, "Message"],
Cell[3168, 91, 367, 6, 31, "Output"],
Cell[3538, 99, 296, 4, 31, "Output"],
Cell[3837, 105, 505, 10, 21, "Message"],
Cell[4345, 117, 840, 15, 56, "Message"],
Cell[5188, 134, 579, 14, 31, "Output"]
}, Open  ]],
Cell[5782, 151, 201, 4, 31, "Input"],
Cell[CellGroupData[{
Cell[6008, 159, 515, 10, 72, "Input"],
Cell[6526, 171, 103, 2, 31, "Output"],
Cell[6632, 175, 133, 3, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[6802, 183, 243, 5, 52, "Input"],
Cell[7048, 190, 131, 3, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7216, 198, 928, 22, 92, "Input"],
Cell[8147, 222, 143, 3, 31, "Output"]
}, Open  ]],
Cell[8305, 228, 242, 4, 31, "Input"],
Cell[CellGroupData[{
Cell[8572, 236, 613, 17, 92, "Input"],
Cell[9188, 255, 158, 4, 31, "Output"]
}, Open  ]],
Cell[9361, 262, 349, 7, 92, "Input"],
Cell[9713, 271, 2815, 46, 532, "Input"],
Cell[CellGroupData[{
Cell[12553, 321, 119, 2, 31, "Input"],
Cell[12675, 325, 72, 1, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[12784, 331, 186, 4, 31, "Input"],
Cell[12973, 337, 127, 3, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[13137, 345, 193, 5, 31, "Input"],
Cell[13333, 352, 180, 4, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[13550, 361, 122, 2, 31, "Input"],
Cell[13675, 365, 187, 5, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[13899, 375, 117, 2, 31, "Input"],
Cell[14019, 379, 88, 1, 31, "Output"]
}, Open  ]],
Cell[14122, 383, 162, 2, 52, "Input"],
Cell[14287, 387, 92, 1, 31, "Input"],
Cell[14382, 390, 121, 2, 31, "Input"],
Cell[CellGroupData[{
Cell[14528, 396, 112, 2, 31, "Input"],
Cell[14643, 400, 120, 2, 42, "Print",
 CellTags->"Info3565024152-6385872"]
}, Open  ]],
Cell[14778, 405, 119, 2, 31, "Input"],
Cell[14900, 409, 215, 6, 31, "Input"],
Cell[CellGroupData[{
Cell[15140, 419, 114, 2, 31, "Input"],
Cell[CellGroupData[{
Cell[15279, 425, 120, 2, 42, "Print",
 CellTags->"Info3565024176-6385872"],
Cell[15402, 429, 844, 24, 23, "Print",
 CellTags->"Info3565024176-6385872"]
}, Open  ]]
}, Open  ]],
Cell[16273, 457, 122, 2, 31, "Input"],
Cell[CellGroupData[{
Cell[16420, 463, 110, 2, 31, "Input"],
Cell[16533, 467, 120, 2, 42, "Print",
 CellTags->"Info3565024186-6385872"]
}, Open  ]],
Cell[CellGroupData[{
Cell[16690, 474, 104, 1, 31, "Input"],
Cell[16797, 477, 127, 3, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[16961, 485, 133, 2, 31, "Input"],
Cell[17097, 489, 14635, 413, 1187, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[31769, 907, 231, 6, 31, "Input"],
Cell[32003, 915, 2093, 40, 246, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[34133, 960, 210, 5, 31, "Input"],
Cell[34346, 967, 3675, 77, 355, "Output"]
}, Open  ]],
Cell[38036, 1047, 148, 2, 72, "Input"],
Cell[CellGroupData[{
Cell[38209, 1053, 487, 14, 52, "Input"],
Cell[38699, 1069, 165, 4, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[38901, 1078, 211, 5, 31, "Input"],
Cell[39115, 1085, 129, 3, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[39281, 1093, 136, 2, 31, "Input"],
Cell[39420, 1097, 116, 2, 46, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[39573, 1104, 182, 3, 31, "Input"],
Cell[39758, 1109, 115, 3, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[39910, 1117, 250, 6, 31, "Input"],
Cell[40163, 1125, 325, 9, 31, "Output"]
}, Open  ]],
Cell[40503, 1137, 281, 4, 31, "Input"],
Cell[40787, 1143, 145, 2, 31, "Input"],
Cell[CellGroupData[{
Cell[40957, 1149, 759, 20, 92, "Input"],
Cell[41719, 1171, 518, 10, 21, "Message"],
Cell[42240, 1183, 158, 2, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[42435, 1190, 196, 3, 52, "Input"],
Cell[42634, 1195, 260, 5, 31, "Output"]
}, Open  ]],
Cell[42909, 1203, 440, 11, 31, "Input"],
Cell[CellGroupData[{
Cell[43374, 1218, 406, 10, 31, "Input"],
Cell[43783, 1230, 351, 6, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[44171, 1241, 251, 5, 31, "Input"],
Cell[44425, 1248, 177, 4, 31, "Output"]
}, Open  ]],
Cell[44617, 1255, 1240, 32, 132, "Input"],
Cell[45860, 1289, 1283, 33, 132, "Input"],
Cell[47146, 1324, 306, 8, 31, "Input"],
Cell[CellGroupData[{
Cell[47477, 1336, 133, 2, 31, "Input"],
Cell[47613, 1340, 237, 5, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[47887, 1350, 128, 2, 31, "Input"],
Cell[48018, 1354, 488, 13, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[48543, 1372, 138, 2, 31, "Input"],
Cell[48684, 1376, 90, 2, 46, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[48811, 1383, 237, 4, 31, "Input"],
Cell[49051, 1389, 224, 4, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[49312, 1398, 136, 2, 31, "Input"],
Cell[49451, 1402, 583, 11, 52, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[50071, 1418, 424, 10, 52, "Input"],
Cell[50498, 1430, 131, 3, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[50666, 1438, 729, 19, 52, "Input"],
Cell[51398, 1459, 744, 20, 72, "Output"]
}, Open  ]],
Cell[52157, 1482, 213, 3, 52, "Input"],
Cell[CellGroupData[{
Cell[52395, 1489, 241, 3, 31, "Input"],
Cell[52639, 1494, 75, 1, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[52751, 1500, 687, 21, 92, "Input"],
Cell[53441, 1523, 205, 4, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[53683, 1532, 1085, 22, 52, "Input"],
Cell[54771, 1556, 455, 7, 31, "Output"],
Cell[55229, 1565, 4442, 84, 319, "Output"]
}, Open  ]],
Cell[59686, 1652, 371, 11, 52, "Input"],
Cell[CellGroupData[{
Cell[60082, 1667, 155, 3, 31, "Input"],
Cell[60240, 1672, 2425, 67, 138, "Output"]
}, Open  ]],
Cell[62680, 1742, 94, 1, 31, "Input"],
Cell[62777, 1745, 423, 11, 31, "Input"],
Cell[CellGroupData[{
Cell[63225, 1760, 757, 24, 52, "Input"],
Cell[63985, 1786, 170, 4, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[64192, 1795, 569, 17, 52, "Input"],
Cell[64764, 1814, 243, 5, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[65044, 1824, 552, 11, 72, "Input"],
Cell[65599, 1837, 226, 4, 46, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[65862, 1846, 165, 3, 52, "Input"],
Cell[66030, 1851, 506, 15, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[66573, 1871, 523, 10, 132, "Input"],
Cell[67099, 1883, 428, 9, 21, "Message"],
Cell[67530, 1894, 94, 1, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[67661, 1900, 301, 5, 52, "Input"],
Cell[67965, 1907, 131319, 2989, 286, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[199321, 4901, 358, 10, 72, "Input"],
Cell[199682, 4913, 166, 5, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[199885, 4923, 145, 3, 31, "Input"],
Cell[200033, 4928, 141, 4, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[200211, 4937, 1901, 50, 172, "Input"],
Cell[202115, 4989, 955, 25, 57, "Output"],
Cell[203073, 5016, 1066, 29, 57, "Output"],
Cell[204142, 5047, 1295, 36, 57, "Output"]
}, Open  ]],
Cell[205452, 5086, 96, 1, 31, "Input"],
Cell[205551, 5089, 200, 3, 31, "Input"],
Cell[CellGroupData[{
Cell[205776, 5096, 730, 18, 52, "Input"],
Cell[206509, 5116, 447, 12, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[206993, 5133, 201, 5, 31, "Input"],
Cell[207197, 5140, 151, 3, 31, "Output"]
}, Open  ]],
Cell[207363, 5146, 188, 2, 52, "Input"],
Cell[CellGroupData[{
Cell[207576, 5152, 645, 19, 112, "Input"],
Cell[208224, 5173, 247, 5, 31, "Output"],
Cell[208474, 5180, 245, 5, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[208756, 5190, 648, 17, 112, "Input"],
Cell[209407, 5209, 1181, 39, 52, "Output"]
}, Open  ]],
Cell[210603, 5251, 515, 15, 92, "Input"],
Cell[CellGroupData[{
Cell[211143, 5270, 303, 8, 72, "Input"],
Cell[211449, 5280, 123, 3, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[211609, 5288, 972, 27, 132, "Input"],
Cell[212584, 5317, 304, 7, 31, "Output"],
Cell[212891, 5326, 221, 3, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[213149, 5334, 496, 15, 52, "Input"],
Cell[213648, 5351, 314, 10, 31, "Output"],
Cell[213965, 5363, 95, 1, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[214097, 5369, 609, 18, 92, "Input"],
Cell[214709, 5389, 305, 9, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[215051, 5403, 430, 12, 72, "Input"],
Cell[215484, 5417, 96, 1, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[215617, 5423, 588, 16, 112, "Input"],
Cell[216208, 5441, 179, 4, 31, "Output"],
Cell[216390, 5447, 179, 4, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[216606, 5456, 564, 15, 72, "Input"],
Cell[217173, 5473, 273, 6, 31, "Output"],
Cell[217449, 5481, 250, 5, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[217736, 5491, 473, 12, 72, "Input"],
Cell[218212, 5505, 322, 10, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[218571, 5520, 1124, 32, 192, "Input"],
Cell[219698, 5554, 400, 11, 31, "Output"],
Cell[220101, 5567, 676, 16, 245, "Output"]
}, Open  ]],
Cell[220792, 5586, 69, 1, 31, "Input"],
Cell[CellGroupData[{
Cell[220886, 5591, 770, 21, 52, "Input"],
Cell[221659, 5614, 477, 15, 31, "Output"],
Cell[222139, 5631, 453, 15, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[222629, 5651, 453, 16, 31, "Input"],
Cell[223085, 5669, 124, 3, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[223246, 5677, 454, 12, 72, "Input"],
Cell[223703, 5691, 171, 4, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[223911, 5700, 2966, 73, 292, "Input"],
Cell[CellGroupData[{
Cell[226902, 5777, 336, 9, 23, "Print"],
Cell[227241, 5788, 336, 9, 23, "Print"]
}, Open  ]],
Cell[227592, 5800, 1053, 32, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[228682, 5837, 1015, 26, 192, "Input"],
Cell[229700, 5865, 149, 3, 31, "Output"],
Cell[229852, 5870, 97, 1, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[229986, 5876, 267, 7, 72, "Input"],
Cell[230256, 5885, 75, 1, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[230368, 5891, 348, 8, 92, "Input"],
Cell[230719, 5901, 116, 1, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[230872, 5907, 382, 10, 72, "Input"],
Cell[231257, 5919, 344, 10, 239, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[231638, 5934, 511, 12, 112, "Input"],
Cell[232152, 5948, 202, 4, 31, "Output"],
Cell[232357, 5954, 202, 4, 31, "Output"],
Cell[232562, 5960, 204, 4, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[232803, 5969, 284, 7, 72, "Input"],
Cell[233090, 5978, 93, 1, 31, "Output"]
}, Open  ]],
Cell[233198, 5982, 174, 3, 31, "Input"],
Cell[CellGroupData[{
Cell[233397, 5989, 475, 10, 31, "Input"],
Cell[233875, 6001, 911, 23, 52, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[234823, 6029, 533, 14, 31, "Input"],
Cell[235359, 6045, 585, 17, 57, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[235981, 6067, 451, 11, 72, "Input"],
Cell[236435, 6080, 144, 2, 31, "Output"]
}, Open  ]],
Cell[236594, 6085, 148, 2, 72, "Input"],
Cell[CellGroupData[{
Cell[236767, 6091, 562, 13, 92, "Input"],
Cell[237332, 6106, 439, 8, 31, "Output"]
}, Open  ]],
Cell[237786, 6117, 146, 2, 72, "Input"],
Cell[237935, 6121, 89, 1, 52, "Input"],
Cell[CellGroupData[{
Cell[238049, 6126, 199, 4, 31, "Input"],
Cell[238251, 6132, 96, 1, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[238384, 6138, 191, 4, 31, "Input"],
Cell[238578, 6144, 174, 4, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[238789, 6153, 476, 11, 52, "Input"],
Cell[239268, 6166, 149, 3, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[239454, 6174, 380, 8, 52, "Input"],
Cell[239837, 6184, 679, 23, 187, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
